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| 
MODULE exch$dos11 ZTITLE ‘dosi1 file and directory routines’ | 
| 


IDENT = 'V04-000' 
ADDRESSING MODE (EXTERNAL=LONG RELATIVE, NONEXTERNAL=WORD_RELATIVE) 


BEGIN 


Lee R RARER AAA R ARERR EAE A ARERR ETAT ERATE AAA RERERERERERE RE 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE 4 ur UNDER A ‘a es AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND he THE 


is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


2 
® 
® 
® 
® 
* 
® 
ft 
® 
* 
ie TRANSFERRED. ® 
w 
® 
® 
® 
® 
® 
® 
& 
® 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- aeePOkat ttn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
3 } FACILITY: EXCHANGE - Foreign volume interchange facility 
4 ABSTRACT: DOS-11 volume specific routines 
6 1 | ENVIRONMENT: VAX/VMS User mode 
038 ; AUTHOR: CW Hobbs CREATION DATE: 22-Mar-1983 
0040 1 ! MODIFIED BY: 
0041 : 
B08¢ ! V03-003 CWH3003 CW Hobbs 12-Apr-1984 
004 : Make /TRANSFER=BLOCK a plebet qualifier by looking at 
Bee both input and output specs 
46 0046 1! vO3-002 CwH3002 CW Hobbs 6-F eb-1984 
47 0047 : Change calculation of DOS11 date to use signed INCR to 
48 0048 ! avoid looping in January. 
49 0049 ! 
50 0050 ! 
51 0051 leo 
26 O26 
37 bez Include files: | 
55 0055 MACRO $module_name_string = ‘exch$dos11" 2%; ! The require file needs to know our module name | 
$ O036 REQUIRE *SRCSTEXCREQ' i Facility-wide require file 
‘ 
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EXCH$D0S11 dosi1 file and directory routines 18-Se -1984 00:52:08 AX-11 Biiss-32 V4.0-74 Page 2) 
v04-000 Module table of contents 12-808 382 99:38 be LEXCHNG SRE EXCDOSIT 63951 : (2) | 
; 22 4 $ } ZSBTTL "Module table of contents’ | : 
3; 6 C6} 01 § 1 ! Module table of contents: | : 
eS. 01 .7 : 
2. = 0158 1 FORWARD ROUTINE ° 
; 664 0159 1 exch$dosi1_close_file, ! DOS-11 specific file close routine ; 
> 65 0160 1 exch$dosi1_create_file, ! DOS-11 volume file create ; 
; & 0161 1 exch$dos11_directory ! DOS-11 volume directory command ; 
: 67 O16¢ 1 exch$dos!1_dire_put item _: NOVALUE, i add an file item to the directory Line : 
; 68 0165 1 exch$dos11_exit_handler : NOVALUE, ! Write tape marks if an exit occurs with an open output fil . 
oe 0164 1 exch$dos11_expand_filename : NOVALUE, ' Convert tape Label to ASCII filename : 
= 3192 1 exch$dos11_ file, ! Find a file entry in the temporary : 
. 2 166 1 exch$dos11_form cur_date : NOVALUE jsb_r1, ! Put the current date into a directory entry ; 
, 2 0167 1 dos11_match_uic : jsb_rOri, ! Check uic Sicgetary matches ; 
ee 0168 1 exch$dos11_mount, ! DOS-11 specific volume mount routine : 
; 0169 1 exch$dos11_next_entry, ! Retrieve a pointer to the next file name entry ; 
r- 0170 1 exch$dos11_open_file, ! DOS-11 specific file open routine ; 
: re giz) 1 exch$dos11_posifion_tape ! Move the tape to the start of a particular file ; 
3 fe $178 1 ; 
; 0174 1 ! EXCHANGE facility routines ; 
a: 0175 1! : 
; «68 0176 1 EXTERNAL ROUTINE : 
>; & 0177 1 exch$cmd_fetch_recfmt_implied : NOVALUE, ! Get or assume the value for /RECORD_FORMAT ; 
; & 0178 #1 exch$cmd_match_filename, ! Compare expanded file names for match ; 
; «684 0179 #1 exch$cmd_related_ file_parse, ! Build an output file name . 
; 8 0180 1 exch$direé_get_columns, ! Get number of colums for the output file ; 
; 86 0181 1 exch$dire_get_width, ! Get the output file width ; 
; Bes 1 exch$dire_put, ! Put a Line to the output file : 
; 01835 1 exch$io_dos11_count_blocks, ' Count blocks to the next tape mark : 
; 0184 1 exch$io_dos11_read, ' Read blocks from a sequential device ° 
; Ww 0185 1 exch$io_dos11_read_Label, ! Read sequential device file label ; 
oo ae 0186 1 exch$io_dos11_rewin ' Rewind a sequential device ; 
; 0187 1 exch$io_dos11_skip_file, ! Skip a file on a sequential device . : 
; 0188 1 exch$io_dos11_skip_record, ' Skip a phyeteat record on a sequential device ; 
>; 94 0189 1 exch$io_dos11_write, ! Write blocks to a sequential device ’ 
; 0190 1 exch$io_dosl1i_write_label, ' Write a label on a sequential device : 
; * 0191 #1 exch$io_dosl1i_write_tape_mark, ! Write a tape mark on a sequential device : 
. or 8136 1 exch$pdp_filter_filename ' Remove invalid characters from a filename 
; 0193 1 exch$pdp_flush_write_buffer, ! Flush any records wetting in the write buffer 
; 0194 1 exch$pdp_get, ' Get functions for small PDP record structure 
; 100 0195 1 exch$pdp_put, ! Put functions for small PDP record structure 
3; 101 0196 1 exch$util_fao_buffer, ' Do an FAO conversion 
5 106 0197 1 exch$util"rad?x50_from_ascii, ' Convert characters to Radix-50 from Ascii | 
: 10 0198 1 exch$util_radix50_to_ascii, ' Convert characters from Radix-50 to Ascii 
: 104 0199 1 exch$util_doslictx_allocate, ' Get an DOS-11 context block 
: 105 0200 1 exch$util_doslictx_release : NOVALUE, ' Give it back 
; 106 0201 1 exch$util_vm_allocate, ! Get some virtual memory 
: 107 0 4 1 exch$util_vm_allocate_zeroed, ! Get some virtual memory, initialized to zero 
: 108 0205 1 exch$util_vm_release ! Return some virtual memory 
: 109 204 1 ; 
s 130 205 1 
: (191 36 1 ! Store some constants in read-only own 
og o8 1 | 
3; 6116 09 1 months : VECTOR (13, LONG) INITIAL 
. 398 0210 1 ("Jan-',Feb-','Mar-',Apr-',"May-',*Jun-",*Jul-",*Aug-",Sep-",Oct-","Nov-","Dec-",***t=") 
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v0e- $dosii_close.file (tilb) 1o28e87138e 93:38:82 — HENchne saeiexcoosis 04951 | 
gh oeat ROUTINE exch$dosl1i_close_file (filb : Sref_bblock) = ZSBTTL ‘exch$dosi1_close_file (filb)’ | 
144 | 


FUNCTIONAL DESCRIPTION: 

Perform DOS-11 volume specific close processing 
INPUT/OUTPUT: 

filb = pointer to block describing the file 
IMPLICIT INPUTS: 

none 
OUTPUTS: 

filb - receive info pertaining to the file to be closed 
IMPLICIT OUTPUTS: 

none | 
ROUTINE VALUE: 

true if able to close the file, false otherwise 
SIDE EFFECTS: | 


1 * al al al * al al? ak alval aleal ales) ales) lear ee ae ee at oe et oP oP oP le, eee 


Oo 


none 
6 
° Sdbgtrc_prefix (‘exch$dos11_close_file> '); | 
? LOCAL | 
7 status | 
? : 
? | 
7 BIND 
7 ctx = filb Cfilb$a_context) : $ref_bblock, 
7 namb = filb Cfilb$a_assoc_namb) : $ref_bblock, 
7 volb = filb Cfilb$a_assoc_volb] : $ref_bblock, 
7 dosv = volb [volb$Sa_vfmt_specific]_ : $ref_bblock, 
ent = dosv (dos11$a_current_entry] : $ref_bbloc 
8 ‘ | 
; $debug_print_lit (‘entry'); 
80); 122 definitely over-zealous checking 
$block_check -namb, namb, $3): ! 
$block_check -volb, volb 2); 
k -dosv, dosii, 4425; 


(.ctx 


$logic_check 
(.ctx 


$logic_check 


; 
; 
; 
; 
; 
; 
| 


me ee a ee ek a ed od 2d od ed = 8d od = = = I 


Be Be Be Be Se Ge Se Be Be Se Se Se Se Se Se Se Se Se Ge Ge Ge Ge Be Se Ge Ge Ge Se Ge Ge Ge Se Fe Se Se Se Ge SH Se Se Se Se Ge Seas Se Se Se eee Se Se Se Seas es 


$block_check : -filb, filb, 5 
4, 
4, 


Fwn-o0o 


.ctx, dosiictx, F 
doslictx$a_assoc_filb] EQL .filb), sti}: 


Nm 
oo 


doslictx$a_assoc_volb] EQL .volb), 
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Output files need some directory tweaks and a buffer flush 
HF gct® Cdos11ctx$v_output_file] 
BEGIN 


EXCHNG. SRCJEXCDOSi "638; 31 4 


Oooo 
C209 00 C00D 
NOU 


MOVOWONAUS WOO 


Flush any blocks that are sitting in the output buffer 
status = exch$pdp_flush_write_buffer (.ctx); 
Write two tape marks to mark the end of the tape, try even if buffer flush failed 


exch$io_ dosli_write_tape_mark (.volb); 
exch$io_dosi1_write_tape_mark (.volb); 


COOUOOoOOoOOOoOO.O 


Cancel the exit handler which was declared to write the tape marks 


$canexh (desblk=exch$a_gbl Cexcg$r_exit block), 
exch$a_gbl Cexcg$a_exh_routine] = 0; ' Clear address, means no exit handler is active 


| 

| 

If the buffer flush failed, exit now 
if NOT .status 

RETURN .status; | 

We have finished this file, and we are sitting on the tape mark ready for the next file | 

| 

| 


dosv (dos11$l current file] = .dosv Cdos11$l current. file) + 
$trace_print_fao (‘dosv file number updated fo !UL', .dosv tdost1$t _current_file]); 


WAIN AAA AAI AIP PINIPUN PONG NPY 2 9 1 OOO 0Owo 
3S PAP UN HODO NOU EW SO OONO MEW BOD NRA RO ODO one 
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0 3 
09 3 
10 3 
11 2 
| ae 
13 3 
14 3 
ft 
; 3 END 
1 ; : Input file, we just need to see if we got to the tape mark 
2 é ELSE 
§ BEGIN 
35 ; : If we didn't get to see the tape mark at the end of the file, something happened and we may be lost 
325 3 IF NOT .dosv Cdos11$v_tape_mark] 
326 3 THEN 
4 ? BEGIN | 
g i 2 Rewind the tape so that the exact position will be known again | 
8 331 4 $exch Po (exch$ gach er ! This might take a while, warn ‘em 
C) 335 4 exch$To_dos11_rewind (.voT 
trot 
2g 335 2 : We have finished this file, and we are sitting on the tape mark ready for the next file 
ta 337 § | 
45 338 4 BEGIN 
46 339 4 dosv (Cdos11$l current file] = .dosv Cdosi1$l current file] + 
44 rk 4 ptrece,, print_Tao (‘dosv file number updated fo 'UL',~.dosv tdostist _current_file]); 


a OOOOOOoEEEEEEEEEEEOEOEOEOEOEOEOEeeeee — es — —  —— = | a 
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v04-000 exch$dosti_close. file (tilb) 12=8e8 71380 99:38:88 ees She Sexcpbeis 645.1 oo 
: 249 034 END; 
; 250 8 rk 
; 2] 6 te } If the block count in the entry is not valid, then update the count from the context and mark it valid 
; 3g 8 ‘$ IF NOT .ent Cdosilent$v_blocks_valid] 
: See 4 THEN 
: @o9 0348 BEGIN 
3 6208 0349 REGISTER 
3 see 0350 count; 
: $86 O38) | Update the block in th 
3 pdate the block count in the entr 
: 360 0358 i . 
; 261 0354 count = .ctx Cdoslictx$l_eof_block] + 1; 
3 $06 0355 if “count NEQ 0 
: 2 0356 
: 264 0357 4 GIN 
: 265 0358 4 ent Cdosllent$w_blocks] = .count; 
; 266 0359 4 ent Cdosllent$v_blocks “vali dj = true; 
; 267 0360 3 ND; 
; 268 0361 2 END; 
: 269 p06 § 
$ erm 036 ! Clear the stream active bit and all other context flags 
3 eri 0364 2! 
3 ge 0365 2 ctx Cdosiictx$l_flags] = 0; 
: 273 0366 2 
3; 274 0367 2 RETURN true; 
3 ers 0368 1 END; 


-TITLE EXCH$DO0S11 dos11 file and directory routines 
-IDENT \vV04-000\ 


-PSECT EXCH$DOS11_PLIT,NOWRT,2 


2D 6E€ 61 4A 00000 MONTHS: .ASCII \Jan-\ 3 
2D 62 65 46 00004 ASCII \Feb-\ j 
2D 72 61 4D 00008 "ASCII \Mar=\ $ 
2D 72 70 41 Q000C “ASCII \Apr-\ 3 
2D 79 61 4D 00010 atts) \May-\ : 
2D 6€ 75 4A 00014 ASCII \Jun-\ 3 
2D 6C 75 4A 00018 eASCII \Jul-\ : 
2D 67 75 41 Hb eASCII \Aug-\ : 
2D 70 65 53 00020 “ASCII \Sep-\ : 
sp 74 63 4F 0024 eASCII \Oct-\ 3 
D i$ 6F 4E 00028 ASCII \Nov-\ 5 
2D 63 65 44 0002C ASCII \Dec-\ 3 
2D 2A 2A 2A 00030 ASCII] \###-\ ; 

1F 1&€ 1F 1E WF TF 1E€ IF TE #1F 1C «#«1F «600034 DAYS_OF _MONTHS : 
~ BYTE he 98 Wis Bs Sha Be Bhd. Sew BOs ee 3 

22 on ee: ee ee ee oe oe ee 


00040 DAYS_OF MONTHS Ll APY AR: 
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0100000 4C P.AAA: .LONG 7694720 
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EXCH$D0S11 dos11 file and directory routines 16-5¢ “19 :52:08 AX-11 Bliss-32 V4.0-74 Page 
v06-000 exch$dosi1_close.file (+ilb) aR et) AR eT Ya Pe Sd PT BC oe 5 
67 1 0 74 JSB EXCHSUTIL_BLOCK_CHECK ; | 
4 6 D i MOVL (R6), R + 0282 
é OOBAQOF ¢ F p 3 7 MOVL 4&9 44220, R2 ; 
024 F 3C 0 MOVZWL #83 RI ; 
50 4 00 00085 OVL ; 
7 16 00088 JSB EXeHS TIL BLOCK_ CHECK : 
2E 28 AG wy 0 A BC #1, 4O(R4T, 1$ ~ + 0287. 
4 DD 0008F PUSHL : 0295 | 
000000006 EF 01 FB 9091 CALLS #1, EXCHSPDP_FLUSH_WRITE_BUFFER : 
2 Q DO 00098 OVL STATUS ; 
65 DD 0009B PUSHL  (R5) + 0297 
68 01 FB 38090 CALLS #1, EXCH$IO_DOS11_WRITE_TAPE_MARK : 
65 DD 000A0 PUSHL ) ; 0298 | 
68 O1 FB O00A¢ CALL EXCH$10_D0S11 WRITE _TAPE_MARK : | 
E 69 C C1 000A ADDL nh, EXCHS$A-GBL, =(SP) ; 0302 | 
000000006 00 01 FB 000A9 CALLS #1 SYSSCA ANEXH ; 
50 69 DO 00080 MOVL EXCHSA, GBL, RO > 0303 
30 AO D4 00083 CLRL  48(RO)~ ; 
21 2g E8 000B6 BLBS STATUS, 2$ + 0307 
0 52 00 00089 MOVL STATUS, RO : 0309 
04 0008C RET ; 
18 oc a3 02 £0 000BD 1$: BBS #2, 12(R + 0325 
000000006 8F DD b00¢¢ PUSHL HEX XCH$ poste “POSITION + 0331 
000000006 00 01 FB 000¢ CALLS LIB$S : 
65 DD OOOCF PUSHL tR$) + 0332 
000000006 EF 01 FB 000D1 CALLS #1, EXCH$I0_DOS11_REWIND ; 
03 11 00008 BRB 3$ : 0325 
OE A3 D6 OOODA 2$: INCL  14(R3) + 0339 
51 1A A3 DO 000DD 3S: MOVL  26(R3), R1 : 0346 
OF 1A Al EB O00E1 BLBS 26(R1), 4$ ; 
50 20 AG 01 €1 000ES ADDL3 #1, 32(R4), COUNT + 0354 
08 13 OOOEA BEQL 4$ : 0355 
16 Al 50 B0 OOOEC MOVW COUNT, 22(R1) : 0358 
1A Al 01 88 000FO BISB2 #1, 26(R1) : 0359 
28 AG D4 O00F4 4S: CLRL 40(R4) : 0365 
50 01 DO 000F7 MOVL #1, RO : 0367 
04 OOOFA RET 0368 
; Routine Size: 251 bytes, Routine Base: EXCH$D0S11_CQDE + 0000 
| 
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EXCH$D0S11 dosi1 file and directory routines 16-Sep-1984 00:52:08 AX-11 Bliss-32 V4.0-74 Page 9 EX 
v04-000 exch$dos11_create_file . 12286871382 99 :36;00 LEXCHNG SRE EXCDOST] 63951 ot vO 
; gir 0 4 1 GLOBAL ROUTINE exch$dosl1_create_file = XSBTTL ‘exch$dos11_create_file’ ; 
; 278 0370 BEGIN : 
3 44) 0371 $4 : 
; 280 0 i : 3 
; 28 8 te FUNCTIONAL DESCRIPTION: ; 
: 28 0375 : Perform DOS-11 volume specific create processin ; 
: 384 0376 3 i : : , | 
; 285 Beet ' INPUT: 3 
; 286 0378 : : 
3; ger 0379 ! none ; 
; 288 6380 : ; 
; 289 0381 ! IMPLICIT INPUTS: | $ 
; 290 b356 ' ; 
3 evi 038 : copy bcopy$e.out.fitb3 = pointer to the filb for the output file . 
; $38 tee: § copy Ccopy$a_inp_filb] - pointer to the filb for the input file | ; 
> 294 0386 § ! OUTPUTS: | : 
; 295 0387 : ; 
; 296 0388 2! none : 
; 297 0389 2! ; 
; 298 0390 ¢ { IMPLICIT OUTPUTS: | ; 
; ev 0391 ! ; 
; $04 4S) 2! copy Ccopy$a_out_filb] - block receives info pertaining to the created file ; 
: 30 0394 2! | : 
:; 0395 ' ROUTINE VALUE: 3 
; 304 0396 } : 
; 305 0397 § : true if able to create a file, false otherwise . 
; 306 0398 : : 
3; wor 0399 § ! SIDE EFFECTS: 3 
; 308 0400 ' 3 
; 309 0401 2! none F 
$ 310 et 4 2 !-- ; 
“ee ib 04035 2 | ; 
3 zig 0404 $dbgtrc_prefix (‘dosll_create_file> '); 3 
3 51 0405 | Pr 
3 ae 0406 LOCAL 3 
s aS 0407 rfp : $Sbblock Cnam$c_bln+nam$c_maxrss], ' output file parse - an RMS NAM block plus expanded string $ 
; 318 0408 nam_len, ! temporary to hold Length of name ; 
3 17 0409 typ_len, ' temporary to hold Length of type | : 
3 318 0410 tot_len, ' temporary to hold Length of name + type 3 
s 319 0411 ent : $Sref_bblock, ' a pointer to the encey we are adding ; 
; $9 Belg start_block, ' the pbn where this file will start ; 
; 1 41 temp, ; 
; $$ 0414 status 3 
» a 0415 3 3 
: 24 be1$ : 
3 Seo Ret BIND ; 
; 326 418 copy = exch$a_gbl Cexcg$a copy .work : S$ref_bblock, | ; 
; $55 ehh out_name = copy [Topy$q_outpuf_ filéname : $desc_block, : 
3 8 420 inp_filb = copy Ccopy$a_inp_filb) : $ref_Bblock, 3 
: a 421 np_namb = inp_filb {iTb$a_assoc nash) : $ref_bblock, 

; 0 4 ; inp_volb = inp_filb Titpeenessoc velo : $ref_bblock, 

3 1 4 np_ctx = inp_filb pitbSa_contgzt ref_bblock, 

3 3 0424 out_filb = copy Fcopy$a out_filb : $ref_bblock, 

: 33 0425 out_namb = out_filb [filb$a_assoc_namb] : $ref=bblock, 
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p 
“ep 
out ctx = out_filb bf] {bSe.context) 
volB = out filb [filb$a_assoc_volb] 
dosv = volB Cvolb$a_vfmt_specTfic 


$debug_print_lit ('entry'); 


-out_filb, filb, 584) 
-inp_filb, filb, 585) 
.out_namb, namb, 238} 
pom | namb nap 7) 
$block_check (2, .volb, vglb, 588); 
$Sblock_check_if_nonzero ( 

$block check (2, .dosv, dos11, 


AX-11 Bliss-32 V4.0-7 
EXCHNG.SRCJEXCDOS11.8 


o3! ° . ; 
MBgyold volb, 634) 


Make certain that write access is permitted, this should be checked long before we get here 


$logic_check (2, (.volb Cvolb$v_write]), 253); 


If the context pointer is null, then allocate and initialize it. 


iF .out_ctx EQL 0 
THEN 


! Get an dos11 context block 


out_ctx = exch$util_doslictx_allocate (.volb, .out_filb) 


ELSE 
$block_ check (2, .out_ctx, doslictx, 589); 


' 
: 
$ 
$ 
' 
: 
C 


! Make sure that it is what we think it is 
! Make sure that we haven't crossed signals someplace 


lLogic_check (4, (.out_ctx Cdoslictx$a_assoc_filb] EQL .out_filb 
logic_check (4, (.out_ctx Cdosiictx$a_assoc_volb] EQL .volB), 2 


! Set the rest of the block to nulls, nothing carries over from one output file to the next 


HSFILL (0, ech hag ig a - doslictx$k_start_zero, ! Set rest of block to nulls 


-Out_ctx + doslictx$k_start_zero); 


! Perform an RMS output file parse on the related name (the result name for the input file) and the 


requested output name from the command Line. 
iF NOT (status = exch$cmd_related_ file parse ( 


' Command Line out p | 


-out_name (dsc$w_Tength], .out_name Cdsc$a 
inp filo filb$T_result_name_TenJ, inp_fi 
rtp 


THEN 
BEGIN 


' Related name 


pointer). 
Tb Cfilb$t_result_name], 
' Gets new name 


: Move the raw name to where it is accessible for the outer signal 
CHSMOVE (.out_name Cdsc$w_length], .out_name Cdsc$a_pointer], out_filb Cfilb$t_result_name]); 


RETURN .status; 
END; 
' Create the result file name in the filb 
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EXCHNG. SRC EXCDOS 


et filb CfilbSy_name “ener e] = false; ' pseune no name change 

tot_len = .rfp er i Remember otererag length of name 
rfp” gag eng = io eee bi e+ nes (.rfp anaes. namel, .rtp Cnam$l_nameJ); ! Remove invalid cha) 
nam_len = (.rfp Cn name], 9); ' Maximum name is nine letters 
IF vtot_ AY NEQ -nam_len ! If Length not same as start, then it has changed 


out_filb Cfilb$Sv_name_change] = true; 
tot_len = .rfp Cnam$b_type] ' Remember oh tert toe Length of typ 
rfp — re] = A. 7 txch$pdp. ie $l gee (.rfp Cnam$b_type] - 1, .rfp Enansl type] + 1); 
i Len = Al -fp Cnam$b_type ; ! Maximum type is three tolus the separating dot) 
tot len NEQ .typ_len ! If length not same as start, then it has changed 
oe filb Cfilb$v_name a = true; 
t_len = .nam_len + ! Final length of —, 
out” “filb CfILDSL rele’ “lend = .volb Cvolb$i sv9' ig ident_len] + .tot_len; ! Length of volume ident 
Slogic check (2, (.out_Tfilb CHilbst _result_name_len U f7Lb$s_ rewutt “pane 256); 
CHSCOPY (.volb Cvolb$l“vol_ident_lenJ, vol6 bvel bss “vol tet’, ! Volume name 
a Len, <rfp Crham$l_name type! wrfp Cram$l 5fyPed- 
0, f7lb$s_result_name, out_filb Tilbst _result_name]); 
$debug_print_fao ("Looking for "!AF'’, .out_filb Cfilb$l_result_name_len], out_filb Cfilb$t_result_name]); 
} Make sure that the input and output files are not on the same device 
if .volb EQL .inp_volb 
RETURN exch$_illmtcopy; 
Reset the rest of the block to nulls, nothing carries over from before 


CHSFILL (0, doslictx$k_end_zero - doslictx$k_start_zero, ' Set rest of block to nulls 
-out_ctx + doslictx$k_start_zero); 


If an /ALLOCATION qualifier has been seen, tell user we are ignoring 


iF + inp_ fill Cfilb$l_q_allocation] NEQ 0 ! If specified on the input 
copy Ccopy$l_q_allocation] NEQ 0 ! or on the output 
$Sexch_signal (exch$_noalloc); '2? also /CONT /BEST ... 


Make sure that the record format in the filb is correct 
exch$cmd_fetch_recfmt_implied (.out_filb, .rfp Cnam$l_typeJ+1); ! Pass it the type from the parse 
Save the addresses of our routines for this volume and record format. 
out_filb [filb$a_close_routine] = exch$dos11_close_file; 
HE deleté_routine] = exch$dosiT_closé_file; 


filb$a_get_routine 


out_filb Cfilb$a_put_routine 2 exch$pdp_put; 


Carriage control doesn't mean anything for DOS-11 output, tell him we are ignoring 


PRIPDPIPIPIPOPIMNINIAIMAIMIAIPPINNINIPINIPUNINININIPININPINIPONYG 
-" 


<m 
ox 


SS + 


ent = exch$util_dosiictx_allocate (.volb, 0); ! Grab a context block for the loop 
a Pi dosnxt$m_rewind OR dosnxt$m_count_blocks; ! Rewind for the first file 


dO 
temp = dosnxt$m_count_blocks; ! Just count for later files 
exch$util_dosiictx_release (.ents; ! Return the context block 


exch$dos1T_next_entry (.ent, .temp) NEQ 0 


MEWN $9 OONOAULS WN“ OOONAuUsS 


! Position the tape, if the directory list is empty, we must rewind the tape so that we don't put 
i the files after the initial tape mark 


IF _Squeue_empty (dosv (dos11$q_entry_header]) 
BEGIN 
$trace_print_lit (‘empty queue, rewinding’); 
IF NOT exch$io0_dos11_rewind (.volb) 


THEN 
RETURN 0; 
END 
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EXCH$D0S11 dos11 file and directory routines 1b-5e -1984 00:52:08 AX-11 Bliss-32 V4.0-74 Page 12. 
v04-000 exch$dosi1_create_file . 17866-1984 19:35 ibe EXCHNG. SRCJEXCDOS1 -B32;1 ~ (5) | 
: 448 40 IF .inp_filb Cfilb$v_cctl_explicitd 
; 449 4) R | 
; 450 ¢ -out_filb Cfilb$Sv_cctl_explicit] 
; «451 054 | 
; 12g Bede Sexch_signal (exch$_nocarriage); | 
: 494 0346 ! For DOS-11 we can treat block transfer mode as fixed 512 
; 436 0548 iF .out_filb CfilbSb_transfer_mode] EQL filb$k_xfrm_block | 
: 458 0550 .inp_filb Cfilb$b_transfer_mode] EQL filbSk_xfrm_block | 
; 459 B22) HEN 
; 460 5 § BEGIN 
; 461 055 out_filb bf] tbsb rec. format = filbSk_rfmt_fixed; 
3 rh 0554 out_filb Cfilb$Sl_fixed_len] = $12; 
: 46 0555 END; | 
> 464 0556 
; rok b226 In some circumstances we can do block mode 1/0 rather than record mode 
5 467 0559 if (.inp_filb Cfilb$b_transfer_mode] EQL filb$Sk_xfrm_automatic ! Both input and output must be automatic tr 
: o68 $360 Po sat -out_filb Cfilb$Sb_tranSfer_mode] EQL filb$k_xfrm_automatic) 
: 4670 B206 ( NOT (.inp_filb ph] tbav_rfat_expticit) ! Both the input and output files must have | 
3 on 056 OR .out_filb Cfilb$Sv_rfmt_explicit])) ! implied record formats 
: 47 0 (.inp_namb Cnamb$b_vol_format] EQL volb$k_vfmt_dos11 ! The input must be DOS-11 
3 474 0 OR .inp_namb Cnamb$b_Vol_format] EQL volB$k_vfmt_rt11) ! or RT=-11 
: 475 0 THEN 
; 476 0 BEGIN 
: 477 0 qeobys print Lit (‘using block transfer mode’); 
; 478 0 inp_filb Cfilb$b_rec_format] = filbSk_rfmt_fixed; 
: 479 0 inp_filb Cfilb$Sl_fixed_len] = 512; 
: 480 0 out_filb Cfilb$b-rec_format) = filbSk_rfmt_fixed; 
; 481 0 out_filb Cfilb$l_fixed_len = 512; 
eps 7 
; 484 Make sure that the directory List is complete 
; 0 
: 0 
: 0 
; 0 
: 
3 0 


NAAN PPO PPIPINIPIPIPUPUPINPI PI NINA INI WII WIP FPO nnonornp) 
. 


Orval tab ab ab ab ab ab Ab Ab Ab Ab Ab Ab Ab db dh ded bedded bh dbebh dh ob ah ah ah ah shal 
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exch$dosi1_create_f 


0vo 


: 20? 338 } Move to the end of the tape 

2 oe aie 

: 509 601 

; g19 Bes Our end_of_tape is actually after the second tape mark, so backspace if we are at EOT 
; se 0604 IF cosy Cdos11$v_end_of_tape] 

: 514 0606 4 

; $15 0607 4 dosv (dos11$l_current_file] = .dosv Cdos11$l_current_file] + 1; ! Adjust the file number for the ski 
; 218 bes 4 dosv Cdos11$v_end_of_fape] = false; ! The skip file routine looks at this bit, we need t 
: aif sed : sone = -1; ! fact that we are at end-of-tape 

: 519 0611 4 

: 239 Belg : } Not at EOT, skip a very, very large number of files to find the end 

; 3¢¢ 0614 3 LSE 

eee oR Boe ors ee 

; 28? pel? 3 } No do the actual skip 

; 3¢7 0619 3 iF NOT exch$io_dos11_skip_file (.volb, .temp) 

: 329 06 1 : wp RETURN 0; 

; 531 0658 y 

: 236 pose : Create an entry 

; 23¢ ocss § ent = exch$util_vm_allocate_zeroed (dosllent$k_length); ! Allocate the memory 

3 336 0628 : ! Get the date into dos!1 format 

; 335 0680 § exch$dos11_form_cur_date (.ent); 

; re be3¢ i} : Convert the file name to radix 50 and store in the entry 

: 542 0634 2 exch$util_radix50_from_ascii (MINU (.mam_len, 6), ! First 6 bytes 

; 543 0635 -fp Cham$l_name), 6, ent Cdosilent$l_filename_1]); 

: ane bess aaa ae GTR 6 ' Last 3 bytes 

: 546 0638 exch$util_radix50_from_ascii_(.nam_len-6, 

; 547 0639 .rfp Cnam$T_name] + 6, 3, ent Cdosllent$w_filename_2)); 

3 208 3640 exch$util_radix50_from_asci? (.typ_len-1 

; 4 sah -Ffp Cham$l_typeJ+T, dos{1ctx$s_exp_type, ent Cdosllent$w_filetype]); 

3 331 Dees ! Move the standard protection code 

3 338 st ent Cdosilent$w_protection] = %0 '233'; 

: 555 5 ' Set the vic to that of the current process. unless the /BY_OWNER qualifier is in effect in which case use 
: 228 rs : the uic of the input (Files-11 only) file. !?? no /by_owner yet 

; 25 50 ent [dosllent$b_member] = MINU (.exch$a_gbl fexcgsu_uic_member), 55); 

: 223 $2) ent Cdosilent$b_group) = MINU (.exch$a_gbl Cexcg$w_uic_group), 255); 

: 561 re $trace_print_fao (‘dosv current file !UL', .dosv Cdos11$l_current_file]); 


| 
| 
| 


| 
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EXCH$DOS11 dosi1 file and directory routines 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-74 Page 14) 
v04-0 exch$dosti_create file , 19=808=1 382 99:38:08 LEXCHNG SRE ExCD0S11.832;1 . (5) | 
3 266 654 $trace_print_fao (' beg_of_tape ‘UL’, .dosv qos] |$v_beg.of taped): | 
; 3 655 $trace_print_fao (' tape_mark 'UL', .dosv {dosl1$v_tape_markJ); 
: ee 8 $trace_print_fao (' end_of_tape ‘!UL', .dosv [dos11$v-end_of_taped); 
5 268 8028 : Store the file number in the entry | 
: 568 0660 Strace print fao (‘storing dosv file number 'UL into entry’, .dosv Cdos11$l_current_file]); 
; 44 908) ent [dosilent$w_file_number] = .dosv Cdos11$l_current_fileJ; 
5 2) aeés Declare an exit handler to ‘'close’’ the file if an exit occurs while it is open 
: 378 665 $Slogic_check (1, f.echSa.got Cexcg$a_exh_routine] EQL 9 311); 
: 574 666 Slogic check (2, (NOT (.out_ctx CdosiTctxSv_output_ file] OR .out_ctx Cdosl1ctx$v_stream_active])), 312); 
;. 2 0667 exch$a_gbl Cexcg$a_exh_routine] = exch$dosTl_exit_handler; T Routine to write the tapem| 
3 Ore 0668 exch$a_gbl Lexcg$l_exh_arg ie = 2; ! Status and volb 
3 Of7 0669 exch$a_gbl Cexcg$a_exh_status = exch$a_gbl Cexcg$l_exh_condvalul; ! Address to store status | 
; 378 gory exch$a_gbl Cexcg$a_exh_volb) = .volb; ! Pass address of volb 
; 580 067 IF NOT (status = S$dclexh (desblk=exch$a_gbl Cexcg$r_exit_block])) | 
3 38) 067 THEN 
; 286 pore Sexch_signal_stop (.status); 
: 2be pers Now write the label and put a copy of the Label into the context block 
; : 
; 586 0678 IF NOT (status = exch$io_dos1l_write_label (.volb, ent Cdosilent$l_filename_1])) 
s Ser 0679 ¢ THE 
; 588 0680 BEGIN 
; 589 0681 3 
; 33y B98 ; If the tape went into the end region 
: 592 0684 3 IF .status EQL ss$_endoftape | 
H a7 0685 THEN 
> 594 0686 4 BEGIN | 
; 399 0687 4 . 
° Hs] bess ? We did actually write the label, so backspace and put a tapemark on top of it and adjust the file | 
: 598 0690 4 exch$io_dos11_skip_record (.volb, -1); 
; 599 0691 4 exch$io_dosl!_write_tape_mark (.volb); : , 
$ rts +43 ? 12? dosv (dos11$l-current_file] = .dosv Cdos11$l_current_file] - 1; ! Adjust the file number 
: 606 Bene ? Rewind the tape so that the exact position will be known again 
: 604 0696 4 !?? $exch_signal (exch$_dos11_position); : This might take a while, warn ‘em cc | 
; 605 697 4 !2? dosv [dos11$v_error_rewind] = true; ! Remember that we have had to forcibly reposition the tape | 
; 606 698 4 dosv _[dos11$v_directory] = true; ' Keep it from shooting off the end to find the directory 
; 607 99 4 !2? exch$io_dos1l1_rewind (.volb); 
; 608 0700 3 END; 
: 609 0701 ; 
3 ei9 4 Cancel the exit handler which was declared to write the tape mark> 
; 612 0704 Scanexh (desblk=exch$a_gbl Cexcg$r_exit_block]); ; 
; oi? 34 exch$a_gbl Cexcg$a_exh_routine] = 0; "Clear address, means no exit handler is active 
3 615 6709 RETURN 0; 
i; 616 bob8 END; | 
; 617 709 . : 
; 618 0710 ! Add the label entry to the end of the List, now that we have written the Label 


ssh - _ 5 
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EXCH$DOS11 dosi1 file and directory routines 1%. Sep-19 :52:08 AX-11 Bh ies -32 V4.0-74 Page 15 EY 
v04-000 exch$dosi1_create_f file . 14- ~Sep-1 1986 99: 36 68 EXCHNG. SROI EXCD0S11.832;1 ’ (5) | ve 
; 619 711 ' 
; 620 at Squeue insert_tail (.ent, “oe a+ Hee entry_header]); ! eee ay to the tail | 
: ° 1 oF dosv (dos11$a_current _entry ent; im t the current entry (but not the current fil | 
3 6 g O79 Copy the Label entry to the context block | 
3 : ; O77 CHSMOVE (dosl1ctx$s wentry, ent Cdosilent$l_filename_1J, out_ctx Cdoslictx$t_entry]); | 
: os? 1884 Define a record stream for this file 
: 699 0721 out ctx Cdoslictx$l_cur_byte] = 0; ! Context is the first byte in 
; 630 07 ¢ out_ctx Cdoslictx$l_cur_block] = 0; i “the first block of the file 
s $65) 07 out =otK doslictx$l_ 2e0t, block] = <1; 
3 632 0724 out_filb Cfilb$a_reco = 0; ! No valid record or Length 
$ oe? 14 ? out_filb Cfilb$si— “record. len] = 0; | 
: $32 LEAs ! Expand the radix-50 filename into the standard ascii text fields | 
; ost 198 i exch$dos11 _expand_filename (.out_ctx); 
; re4 Ay § Clear all the flags except the ones we want by writing the masks into the Longword 
: 641 t3 2 out ctx Cdoslictx$l_flags] = dosiictx$m_stream_active ! A record stream is currently active 
3 6 ree § OR doslictx$m_output_file; i and it is an output file 
: 644 736 2! Set up the i/o and record buffer 

; 645 737 2 | 

3; 646 738 2 IF .out_ctx Cdoslictx$a_buffer] EQL 0 

: 647 739 2 THEN 

3 “ a 2 out_ctx Cdosiictx$a_buffer] = exch$util_vm_allocate (ctx$k_buffer_length); 

: 630 rg 3 Set the block pointers to the chunk we are ready to write (i.e. nothing, ‘cuz we've done no puts) 

: 652 744 2 out_ctx Cdosl1ctx$l_buf_base_block] = 0; | 

; oe? ot? § out_ctx Cdoslictx$l_buf_high_block] = ctx$k_buffer_blocks =- 1; 

: 655 747 2 RETURN true; 

3; 656 748 +1€E 


H$_BADLOGIC, EXCHS_ILLMTCOPY | 
| 


EXTRN EXC 
“EXTRN EXCHS"NOALLOC EXCHS NOCARRIAGE : 
TEXTRN SYSSDCLEXH, LIBS$ST 
OFFC 00000 -ENTRY RoR READ. ie FILE, Save R2,R3,R4,R5,.- ; 0369 
RS R7 10,RT1 : 
5E FE78 CE 9€ 0000 MOV - 65 (8p) : 
50 000000006 EF 04 Ci 0000 ADDL3 a EXCHgA GBL, RO : 0418 
A 60 DO 0000F MOVL (RO), R10 > 0419 
59 14 AA 0012 MOVAB Zcnio). R9 : 
57 3C OA 0016 MOVL (R10), R7 > 0421 
Oc AE 44 OA : OO1A MOVAB 68(R10). 12(SP) > 0424 
56 oC 8 p O1F MOVL 12(SP). R > 0425 
08 AE os ’ 023 MOV (Rb), 8(SP) > 0426 
58 1C Ab p 0 028 MOVL (R6). R11 > 0428 
04 «AE 54 AB 99E 0002C MOVAB 84(R11S, 4(SP) F 


dosi1 file and directory routines :5 AX-11 Bh isg -32 V4.0-74 Page 16. 
exch$dosti_create file 82 93: 38: be EXCHNG. SRCJEXCDOS1 1.832; 1 9° 5) 
2 O35B00FA 0 MOV 456295674, R2 : 0433) : 
af NE BP mevbu. $5820% beg) 
0 D MOVL : ; 
990000006 18 JSB Extusur IL BLOCK. CHECK : | ; 
52 8 OFA p MOVL r385. 674 > 0434 ; 
49 C MOVZWL #5 : | ; 
50 D0 MOVL §=-R7 : | ; 
000000006 16 JSB at BLOCK_CHECK ; | : 
52 010A00F 20 0 MOVL #1743282 : 0435) : 
51 024A ¢ MOVZWL #586 : : 
50 18 D0 0 MOVE’ DaCRE). ; : 
000000006 i JSB Beeb at BLOCK_ CHECK ; : 
6E 1 D MOVL 4(R7), (SP ; 0436 ; 
52 O10A00F7 b0 MOVL 417452625, R2 ; : 
51 0248 C0 MOVZWL #587, R1 : ; 
50 DO 0 OVL (SP); RO : ; 
000000006 16 0 JSB EXcHgUTIL -BLOCK_CHECK : : 
52 041B00F B00 OVL #68878579; R2 ; 0437 : 
51 024C C0 MOVZWL #588, R1 : ; 
50 DO 0 OVL R11, RO : ; 
000000006 16 0 JSB EXCHSUTIL_BLOCK_CHECK : : 
1C D3 0 TSTL 28 (R7) > 0438 : 
13 OO0A2 BEQL 1$ : ° 
52 041B00F3 Dd 0 MOVL reset R2 ; : 
51 027A 3C OOOAB MOVZWL #634 ; : 
50 1C DO 0 MOVL —- 28(R?) ; | : 
000000006 16 0 JSB EXCH nsufIL, BLOCK_CHECK ; ‘ 
58 04 DO 0 MOVL  a4(SP) 0439 : 
52 003600FD b0 0 MOVL #3539197. R2 ; : 
51 0253 C0 Movzwe #595, R1 ; : 
50 DO 0 MOVL RB, RO ; : 
000000006 16 0 JSB EXCHS HSUTIL BLOCK CHECK ; : 
AB EO 000D3 BBS (RIT), 28 : 0444 : 
7E FD 9A 00008 MOVZBL #353, -(SP) ; : 
DD 000DC PUSHL 3 : 
000000006 DD OOODE PUSHL AeXcHs CHS BADLOGIC ; : 
00 FS 6 E4 CALLS . 1BSSTOP ; : 
08 D5 OO0EB Tstt” ise : 0448 : 
12 OOOEE BNEQ ; : 
DD S90FO PUSHL Re : 0450 : 
DD 000F2 PUSHL ; : 
EF FB OOOF4 CALLS ne. EXCHSUTIL_DOS11CTX_ALLOCATE ; : 
ge DO 000FB MOVL a8 (SP) ; : 
11 OFF BRB as’ ; : 
52 OO8A00FC p0 101 MOVE #9044 220, R2 : 0453 ; 
51 024D C 00108 MOVZWL #589 RI 3 : 
50 08 DO 0010D MOVL a8(SP) ; : 
000000006 16 00111 JSB axCHS Sutil rpLgc. CHECK ; ; 
14 AE 08 DO 00117 MOVL, a8 (SP) : 0463 ; 
14 AE 1 0011¢ ADDL3 #28 n 26(3P), PS6csPD : ; 
6E , 20 ee 00128 movcS «#0, (SP), #6, #110, a36(SP) : : 
B AE 9F 0018 PUSHAB RFP ; 0470 | : 
A Al OF 1 E PUSHAB 90(R7) ; : 
A AZ DD 00131 PUSHL (R? ; ; 
06 Ad bp 0134 PUSHL 4(R9) ; ; 
7E 69 3C 00137 MOVZWL (R9), =(SP) ; ; 
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v04-000 exchS$dosti_create file ets RTL eR STE MS Taste BEE - 55! 
000000006 EF 05 FB OO13A CALLS #5, EXCHSCMD_RELATED_FILE_PARSE : 
24 «AE D O14) MOVL RO, STATUS : 
0B 24 ar E 145 BLBS STATUS, 5$ : 
SA AG 04 89 6 0149 MOVCS (R9), O4(R9), 9O(RO) + 0477) 
0 “a BO Oise MOVL STATUS, RO : ale 
20 AE 28 Ab oF o154 5$: MOVAB 43(R6) 32(sP) + 0484 | 
0 8B ! BF 8A 00159 BICB2 #128, a32(SP) : | 
5 : AE 9A 0015 MOVZBL RFP+59, TOT_LEN + 0485 
4 AE DD 0016 PUSHL  RFP+76 : 0486 
7E 67 A 9A 0016 MOVZBL RFP+59, =(SP) : 
000000096 EF Q FB 0169 CALLS #2, EXCHSPDP_FILTER_ FILENAME : 
63 AE 90 00170 HOVE RO, REP#59 : 
50 63 AE 9A 00174 MOVZBL RFP+59, RO ; 0487) 
09 50 91 60178 CMPB.seRO, #9 ; 
03 1B 00178 BLEQU 6$ ; 
50 09 D0 00170 MOVL #9, RO : 
59 0 DO 00180 6$: MOVL RO, NAM_LEN ; 
59 32 D1 00183 CMPL _ TOT_LEN; NAM_LEN > 0488 
05 13 00186 BEQL «6s 7$ : 
20 BE 80 8F 88 00188 BISB2 #128, a32(SP) + 0490 
52 64 AE 9A 0018D 7$: WOVZBL RFP+60, TOT_LEN + 0492 
7E 78 «AE 01 ¢1 00191 ADDL3. #1, RFP+80,~-(SP) + 0493 
7E 68 AE 9A 00196 MOVZBL RFP+60, -(SP) ; 
6E D7 0019A DECL (SP) : 
000000006 EF 02 FB 0019¢ CALLS #2, EXCHSPDP_FILTER_F ILENAME ; 
64 AE 50 01 81 OO1A ADDB3 #1, RO, REP+50 3 
50 64 AE 9A 001A8 MOVZBL RFP+60, RO > 0494 | 
04 50 91 OO1AC CMPB RO, #4 : 
03 1B OO1AF BLEQU ; 
50 04 pO 00181 MOVL , RO : 
1C AE 50 DO 00184 8$: MOVL RO, TYP_LEN 3 
1C AE 52 D1 00188 CMPL - TOT_LEN; TYP_LEN > 0495 
05 13 001BC $ : 
20 BE 80 8F 88 00 18g BISB2 #128, a32(SP + 0497 
52 59 1¢ AE C1 001C3 98: ADDL YP_LEN, NAM_LEN, TOT_LEN : 0499 
3A AG 65 BB42 9E 001CB MOVAB alorcRifcror LEN], 58(R6) : 0500 
00000100 =F 3A AGB CDT «COOOICE CMPL 58(R6), #256 : 0501 
14 1B 00106 LEGU 10$ ; 
7E 0100 8F 3C 00108 MOVZWL #256, -(SP) ; 
01 DD 001DD PUSHL #1 ; 
000000006 8F DD 001DE PUSHL #EXCH$ BADLOGIC : 
000000006 00 03 FB OO1ES CALLS #3, LIBS$STOP : 
18 AE 0100 «8F 3¢ OOtEC 10$: MOVZWL #256 24(SP) : 0502 
10 AE 5A AG ODE OiFe MOV 90(R6), 16(SP) : 0504 
18 AE 00 69 AB 65 AB 2¢ oir? MOVCS 101(R11), 105(R11), #0, 24(SP), a16(SP) : 
ef 18 00201 BGEQ 118 : 
10 AE 65 AB c0 0203 ADDL 101¢R11), 16(SP) : 
18 AE 65 A ¢ 0208 SUBL2  101(R11), 24(SP) : 
18 AE 00 74 BE si 3 C 00 OD MOVCS NAM_LEN, @RFP+76, #0, 24(SP), a16(SP) ; 
3 18 18 BGEQ =«*118 : | 
19 AE 2 c6 1 ADDL2 NAM_LEN, 16(SP) : | 
18 AE 9 ¢ 1 SUBL2 NAM"LEN, 24(SP) : | 
18 AE 00 78 «OBE 1¢ AE 2c 00 : MOVCS TYPTLEN, @RFP+80, #0, 24(SP), a16(SP) : 
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CHSUTIL_DOS11CTX RELEASE 
(RB) 


12(R8), 24$ 


» 

4-0 

Now 
~~ 
uD 
oo 
~ 


EXCHS10_DOS11_SKIP_FILE 


COM = —Buew + 


aes _VM_ALLOCATE_ZEROED 


#6, (SP) 
#4, EXCHSUTIL_RADIX50_FROM_ASCII 
NAM_LEN, #6 


Q¢ENT) 
6 ufiPe7s =(SP) 
#4, EXCHSUTIL_RADIX50_FROM_ASCII 
VetENT) 
g 
RG 
#1, TYP_LEN, RO 
yA EXCHSUTIL _RADIX5O_FROM_ASCII 


#135 cngA acorn R 
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-11 Bliss-32 Page 39 
1 dosi1 file and directory routines 16-Sep- 7:52:08 AX “. ($f 
aa tt a exch$dosti _create_ file 14- =tep- 1382 99: 36: 4 EXCHNG.SRCJEXC 00 $49 “235. 31 
OF A 51 9 DF 31$ MOVB = R1,_:15( ENT) pe 
14(R8), 24 (ENT) F 
es) mere c 
0137 ar jz ED MOVZWL #311, =(SP) 
" 1 DD FS PUSHL #1 ; 
0G BF DD 003F4 PUSHL #EXCH$_BADLOGIC ; 
hart CALL A} LIB$STO ; 
50 tacts | Ae 3 cf ion 32$ ADDL #46, 20(SP), RO ; 0666 
How 8 + ae Bis fle Geet tn : 
i 0138 $} 5? Ocig 33$: et Eg gz lee (SP) 
000000006 a DD 09419 PUSHL HEXCHS, sero ; 
ee ae ee ee ‘0667 
0 20 saad hit er 43 09420 i MOVAB EXcHSDOSTT” EXIT_HANDLER, 48(RO) ; nian 
3 40 8 bE $0237 MOVAB 64(RO), 56(RO) ; 0669 
any: MOVL R11, 60(RO) + 0670 
wad vas 2c 8 BP iets PUSHAB a4 (ho) + 0672 
1 FB b0248 CALLS SYSSDCLEXH 
bates *y 0? 95 DO 0044A MOVL RO. STATUS ; 
So RS Bia Bee? Eee rr 
24 AE OD 
000000006 00 01 FB 00455 CALLS #1, LIBSSTOP ; 
O98 OF SRB 358: yam gegen — 
000000906 EF 02 FB 00462 CALLS a. sh DM$11_WRITE_LABEL 
woners HO OM OR ETA Bt os 
7E of tg ives SNEGL i, -(SP) + 0690 
5 PB eta CALS pH EXCH$10_D0S11_SKIP_RECORD 3 
vnenatne 2 96 DD wey PUSHL R11 : 0691 
1 FB 00489 CALLS #1, EXCH$IO_DOS11_WRITE_TAPE_MARK : 
nto ae % BB 0490 618383 #ié, 15 4 . > 0698 
ee C C1 00494 36$:  ADDL3 #44. EecnSa GBL, -(SP) ; 0704 
lea tt ittiitts it 6 049 CALLS #1, SYSSCANEXH : 
oereene ae 000000006 FF 50 tag MOVL E CHSA_GBL, RO ; 0705 
30 vant ey SRBC £B.R0- : 0707 
12 AS 9E OO4AF 37$:  MOVAB. 18(R8), RO ; 0712 
San Ne et tno ‘ans 
oe ee fom 
vn 1 00 acs moves #20, SENT), 60(R7) an 
CoM gee the a 
a mnt a a 
5 ti me 13 CLRO ab eRO) : : 0725 


VOs-Ob0”| = exenSdosti_ereate 
0090V 
000000006 
18 
30 


; Routine Size: 1288 bytes, 
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1800 


2c 
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NUS OP Or OU OP 


Sep-19 
gep-19 


38$: 


39$: 


0OFB 


AX-11 BLi 

Bf 99: 36; 88 YEXCHNG SR sexe xCDOS eh ae: B32;1 
chet if XCH$DOS11_EXPAND_F ILENAME 
MOVL Ag abtR) 

TSTL gaa ) 

BNE 8$ 

MOVZWL #6144 , =(SP) 

CALLS #1, EXCHSUTIL_VM_ALLOCATE 

MOVL RO, 24(R7) 

CLRL = 44 CR?) 

MOVL #11, 48(R7) 

MOVL #1, RO 

RET 

CLRL = RO 

RET 
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v04-000 exch$dos11_directory | ! 14- Sep-1984 99: 36 Bf EXCHNG.SRCJEXCDOS11. b3 1 ° (BS 
o738 4 yee ROUTINE exch$dos11_ directory (volb : $ref_bblock) = ZSBTTL ‘exch$dos11_directory' 
Pel l++ ie 
7 ¢ ! eA 
ber FUNCTIONAL DESCRIPTION: 
73s : Traverse the DOS=-11 directory and display the contents 
ree ; INPUTS: 
£23 “volb - pointer to volb which has been connected to the DOS-11 device 
761 i IMPLICIT INPUTS: 
766 ‘ 
o dire - directory work area 
65 i OUTPUTS: - 
66 ‘ ie ag 
67 t * none 
68 ! 
4 IMPLICIT OUTPUTS: 
71 i none. _ 
a ! 
4 ' ROUTINE VALUE: 
74 ! 
7 ' 
7 ! 
! 
7 
! 
i 


PROPIPIPPPIPINPNIPPYPININOAIPIPIPIDININPINIPINIPIPIPYRIDIPIPINPPIPIPIPIPIPUPONINIPPNOPonPononononyd 


Be Se Be Se FH Fe Se Ss Ge Be Be Fe Se Ge Ge Se Fe He SH Se Se Se Gs Ge Se Se Ge Se Se Se Os OH Ss SH Ss Oe Se SFOs Sees SOSH Se ee SHS SH St Se esas 


2 true if valid, false if not 
Ad SIDE EFFECTS: 
a error conditions will be signaled 
81 
8 $dbgtrc_prefix (‘dosl1l_directory> '); 
84 LOCAL 
85 : Sref_bblock, ! a pointer to the namb block 
Hs] ctx : $Sref_bblock, ! a pointer to an DOS-11 context block 
88 blocks afis layed, 
89 files_d te th 
90 faop = $28 block, ! pointer to an fao output 
4 | pepe 
ags 
538 3 , 
94 
795 BIND : 
138 dire = exch$ 37°! enc o tas ire work] Sref_bblock, ! pointer to work area 
79 fab = dire (dire$a_ou : Sref_bblock,~ ' pointer to fab for output file 
798 rab = dire Cdire$a_outrab : $ref_bblock, ! pointer to rab for output file 
$444 dosv = whe volb$a_vfmt_specific] $ref_bblock i pointer to dos11 structure 
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EXCH$D0S11 11 file and directory routines 18-Sep-1984 90: 36° 8 AX-11 Oi ise -32 V4.0-74 Page $3 
v04-000 h$dosi1_directory 64-Sep-1984 EXCHNG.SRC Sexcp0si1-83 31 (7) 

$Sblock_check (2, .dire, a £ $12): ! Check that the directory work area is valid 

$block_check ( ; .volb, volb ); 

Sblock=check (2, .dosv, yosty° 6335; 

rece apri (‘calling dump_dosv'); 

$chec kneall teh * exchSdbg. ump_dosv, .volb); 

L aif suTtcn. check ! If checking is on look at all the nambs 
nam = .volb CvglbSa. namb_head); ! Get the address of the first namb chained to the volb 


Slogic_check (2 


.nam NEQ 0), 264); 
WH E Tham NEQ 6 


BEGIN 
Sblock check (2, .nam, ne: 597); 
oes = Tnam Cnamb$a_ next 


Determine the width of a directory item 


wid = dosl1ctx$s_exp_ fullname; Name and pointer are always there 


Is /OWNER present? 


WWW Ro nonononoronononing 2 2 ee ee SO 


Ww 
SRAFUNSASSONOM PUNO OONOM RU 


i setre Cdire$v_q_owner] 
wid = .wid + doslictx$s_exp_directory; 


NSS INS 
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B88 OSS oh eee hee eee eee oa. 
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ets ca Cdire$v_q_size] ! Is /SIZE present? 

o72 : wid = .wid + (IF .dire Cdire$v_q_octal] THEN 7 ELSE 5); 

mt) : dire Cdire$v_q_date] ! or /DATE? 

748 4 wid = .wid + dosllctx$s_exp_date + 1; 

m2 ; rere Cdire$v_q_fullJ ! or /FULL? (add protection) 

ree ; wid = .wid + 6; ! Protection is aiways in octal 

oes 4 Compute the number of columns for the Listing 

751 8 dire Cdire$l_item_width] = ! Put the value in the work area 

752 8 dire direst. List. ow tdth. = rhe Cdire$l_list_width] -1; ! Make a place for the ‘>’ ageiast Left colu 
753 8 exch$dire get colum ' Fetch the number of colum 

Pee dire Cdire$i_Tist vaathy = .dire Cdire$l_List_width] +1; ! Restore the original Listing width 

£36 : Print the header information 

758 8 exch$dire epyt ir foul string); ! Print a blank Line 

759 849 faop = exch$util_ fa5, b tter. = Ast IS ‘Directory of DOS-11 volume 'ZD', |! Format the header Line 
760 850 svglb L_vol_ident gr 2-,' volb volb$t_vol_ ident? 0); 

761 851 faop Cdsc$w_length co stasesa _length ' Remove the seconds field f 
r6¢ 326 pachedire _put (2 fa0p) ! Print the header Line 

2 S27 exch$dire_put (nul! string); ! and another blank Line 
ee? B22 Initialize the local variables 

769 339 status = true; ' Assume that we will find some files 


EXCH$00S11 dosi1 file and directory routines 16-Sep-1984 8 AX-11 Bliss-32 V th as 4 Page 24 
vad exch$dosti directory ° 14- =tep- 1382 99: 36; 88 EXCHNG.SRC EXCDOS $11. 63351 . (5 
; 768 blocks_displayed = 00 

: £6? a files "Slee ayed © = 

s ff) O86) Purchase an DOS11 context block 

: r18 ases ctx = exch$util_duslictx_allocate (.volb, 0); 

3 of? aBés Loop through ail the Labels in the directory 

; 777 0867 dosv Cdos11$v_current marked) = false 

; 778 0868 flags = dosnxt$m_rewind OR dosnxt$m_ count blocks: ! Rewind for the first file 

; 779 ty %4 WHILE exch$dosi1_next_entry (.ctx, flags) NEQ 

; 780 0870 DO 

: 781 0871 BEGIN 

4 ree pers 

s 78 087 ! If we have aborted, exit the loop 

> 784 0874 ! 

: «785 0875 ; IF .exch$a_gbl Cexcg$v_control_c] 

; 786 pare 

; 787 0877 3 EXITLOOP; 

; 788 0878 3 

; «789 0879 3 flags = ity bey count_blocks; ! Just count for later files 

; 790 0880 3 nam = .volb CvolB$a_namb_ headi: ! Get first namb 

3; «791 0881 3 WHILE .nam AEG 0 ! and loop through them all 

: 792 pete 3 DO 

3; 793 0883 4 BEGIN 

: 794 0884 4 BIND ' Need the name and type from the 

; 795 0885 4 nam_nam = nam franbSq. name] : $desc_block, i command input because we need 

; 796 0886 4 nam_typ = nam (namb$q_type] : $desc_block; i to compare this name against 

; 797 0887 4 ! any selections in the command 

; 798 0888 4 IF exch$cmd_match_filenam 

; 799 0889 4 (.ctx Edoslictx$t. exp _fullname_len], ctx Cdoslictx$t_exp_fullname], 

; ry Bboy ? -nam_nam Cdsc$w_léngth] + .nam_typ tdsc$w length], .fnam_nam Faecke _pointer]) 

; 802 0892 4 aos 11 —match_uic (.ctx, .nam) 

; 803 0893 4 THEN 

3; 804 0894 5 BEGIN 

; 805 0895 5 srheeast’ dire put item (.ctx); 

‘e . 0896 5 files_displayed = .files display ed + 1; ! update trailer statistics 
: 807 0897 5 block’ displayed = .blocKks_displayed + .ctx Cdosl1lctx$w_blocks); 

; 808 0898 5 EXIT TLOOP; 

; 809 899 4 ND; : : 
: 4 a $ nam = .nam Cnamb$a_next); ' to next namb in chain 
; B12 O06 END; 

a- BT 886 hae 

: aie 3444 : If we have canceled the Listing, tell about it 

; 816 090 IF .exch$a_gbl Cexcg$v_control_c] 

s B17 090 THEN 

3 a19 bs: Sexch_signal (Sinfo_stat_copy (exch$_canceled)) 

3 $30 ELSE 

3 $6) BEGIN 

3 555 

; 824 


: If the tape is at eof and we have printed some files, print the eot marker 
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v04-000 Laps 1278071382 $3:38;5 age $3 


742 
4 EXCHNG.SRCJEXCD0S11.832;1 


00 exch$dos11_directory 
; 825 915 4 IF (NOT .dosv Cdos11$v_current_marked]) 
; $56 218 3 * $i 
; 827 0917 4 (.dire Cdire$v_items_printed]) 
> 828 0918 3 
; 14 3a)? 4 (NOT .dosv Cdos11$v_error_rewind]) 
5 831 09 1 exch$dos11_dire_put_item (1); ! 1 means print a "=> (end-of-tape)"’ 
: B38 88 If -dire Cdire$l_cur_column] NEQ 0 ! If anything is waiting, print it 
; tH 83 H exch$dos11_dire_put_item (0); ! 0 means flush the buffer 
; 837 34 i } If we printed some items, then add an extra blank Line 
: 839 0929 if_.dire Cdire$v_items_printed] 
: 840 32 0 THEN 
; ah O33) 3 exch$dire_put (null_string, true) ! Cancel CTRL/O with second parm 
; Bz 0938 3 ; Nothing was printed, return a warning status so that command procedures can see whether files were fou 
: 845 goss 3 LSE 
: 4) 344} 3 status = Sinfo_stat_copy (rms$_fnf); ! Let a guy see that $ EXC DIR CS1:DEFBOO.CMD didn’t work 
3 848 0938 3 ! Print the statistics Line 
; 849 0939 3 ! 
; 850 0940 4 faop = (IF .dire Cdire$v_q_octal] 
>; 851 0941 4 
3 $36 bee : ZASCID ‘Total of !OW file!%S, !OW block!%S. (octal)’ 
5 854 0944 3 ZASCID ‘Total of !UL file!%S, 'UL block!%S. (''>'' marks current tape position)'); 
; 855 0945 3 exchSd eaeenOut it fao_buffer (.faop, files displayed, -blocks_displayed); 
: 856 0946 3 exch$dire_put (.Tfaop); 
3 * 857 0947 END; 
; 858 0948 
; 859 0949 ! Free up the context block. 
; 860 0950 ! 
; 861 0951 2 exch$util_dosiictx_release (.ctx); 
3 506 0326 $ 
; 86 095 RETURN .status; 
3: 864 0954 1 END; 


-PSECT EXCHSDOS11_PLIT,NOWRT 2 


P.AAE: -LONG 17694764 
P.AAH: ASCII \Total of !UL file!%S, !UL block!2S. \ 


oo 


$3 72 69 44 00038 P.AAD: .ASCII \Directory of DOS-11 volume !AF '2D- ; 
1 31 2d 53 O03 \<0> : 
20 20 20 20 0007 : 
01 £00 7 QOO7C P.AAC: .LONG See Pha : 
00000000' 94 ADDRES 3 

61 74 6F 54 084 P.AAF: .ASCII \Taret of 'OW file!ZS, 'OW block!%S. (oc\ ; 
$3 $! 65 6C 093 : 
> @n ay v4 Bp Ae ; 
29 6C gt 4 AC ASCII \tal)\ ; 
3 f 0080 3 

0 008 ; 

6F 54 00088 g 
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v04-000 exch$dos11_director 
63 6F 6C 62 20 4C 55 21 . a2 1 65 
5 30 20 20 6 3 33 i 
72 75 $3 20 es 68 si D E ee 4 
7 69 73 6F 70 20 6 0 61 74 4 6€ 6 
0 29 6E 6F 
ah 4 
00000 


50 000000006 


aces * ty 
003600F D 
026E 


ViVi WW Wn 
o-No OT O-—MUWwTM 


000000006 
4C 


0108 
000000006 
000000006 00 
52 010A00F7 
51 0255 
50 
000000006 
54 7 
59 2c 
03 69 
51 
OF 
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> 
m 
mse 
PR 
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< 12:38:08 


-ASCII 
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\ ('>"' marks current tape position) \<0> 


ASCII 4 
P.AAG: .LONG 17694794 
»ADDRESS P.AAH 


2$: 


3$: 


sEXTR 
~PSECT 
-ENTRY 


EXCHS$_CANCELED 
EXCH$D0S11_CODE ,NOWRT ,2 


EXCHSDOS11_ DIRECTORY, Save R2,R3,R4,R5,R6,- 
R7,R8,R9,RTO,R11 


ns: §p 


EXCHSA_GBL, RO 


BLOCK_CHECK 


LO 
R2 
197, R2 

1 
IL_BLOCK_CHECK 
NAM 
acs, -(SP) 
ogxcHs BADLOGIC 
#3, LIBSSTOP 
NAM 
2s 
#17432823, R2 
#597, R1 


NAM, “RO 
EXCHSUT IL BLOCK CHECK 
112(NAM) , NAM 


#5, RO 
RO, WID 


See Se Se Be Se Se Ge Se Se Se Se See Se Se Se Se Se Be Se Se Be Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se 
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v04-000 exch$dosti_directory eats rat EL Sa Ps og Pt ee eT age 3) 
03 9 3 £1 00081 6$: BBC #3, (RO), 7$ : 0831 
1 ¢ ¢0 a0 ADDL2 #12, W + 0833 
03 9 6 £1 00088 7$: BBC #6, (RO), 8S : 0835 
1 6 CO 000BC ADDL2 #6, WID + 0837 
34 AB = 09 O08 8$: MOVE wid 2(R3) : 0841 
000000006 EF 09 FB 000C6 CALLS 4&0, §XCHSDIRE_GET_COLUMNS : $828 
ove fF Be pose siete RULE STRING  O8e3 
000000006 EF 0 FB 000D4 CALLS #1, EXCHSDIRE_PUT : 
D4 000DB CLAL = = (§P) + 0850 
69 AS OF 9900 PUSHAB 105(R5) : 
65 a5 dd 00 EO PUSHL  101(R5) : 
0000' CF 9F OO0E PUSHAB P.AAC > 0849 
000000006 EF 04 FB OOOE?7 CALLS #4, EXCHSUTIL_FAO_BUFFER + 0850 
58 0 pO OOOEE MOVL. RO, FAOP : 
68 06 A2 000F1 SUBW2 #6, (FAOP) > 0851 
58 DD 000F4 PUSHL FAOP + 0852 
000000006 EF 01 FB 000F6 CALLS #1, EXCHS$DIRE_PUT : 
0000" CF 9F OOOFD PUSHAB NULL_STRIN + 0853 
00000000G_ EF 01 FB 00101 CALLS #1, EXCHSDIRE_PUT ; 
58 01 pO 00108 MOVL #1. STATUS : 0857 
04 AE 7C 00108 CLRQ ~—s- FLES_DISPLAYED : 0859 
7E 04 00106 CLRL = = (SP) + 0863 
55 DD 0011 PUSHL 5 : 
000000006 EF 02 FB O12 CALLS #2, EXCHSUTIL_DOS11CTX_ALLOCATE ; 
2 50 D0 0011 MOVL RO CTX : 
Oc Ab 20 8A 0011C BICB2 #32, 12(R6) + 0867 
57 03 DO 00120 MOVL #3, FLA : 0868 
SA 66 A2 YE 00123 MOVAB 102(R2), > 0889 
0084 8F BB 00127 9S: PUSHR #*M<R2,R7> > 086 
0000v Cc 02 FB 0012B CALLS #2, EXCH$DOS11_NEXT_ENTRY : 
50 05 00130 TSTL RO ; 
58 13 00132 BEQL 12% ; 
58 000000006 FF EB 00134 BLBS | @EXCHSA GBL, 13$ > 0875 
57 02 DO 0013B MOVL #2, FL : 0879 
54 4C AS D9 013€ MOVL 76(R5), NAM : 0880 
E3 1300142 10$:  BEQL 9$ : 0881 
50 50 AG SE 00144 MOVAB 80(NAM), RO : 0885 | 
04 AO DD 00148 USHL  4(RO) : 0890 
51 60 3C 00148 MOVZWL (RO), R1 : 
04 AE 58 AG O3C OO14E MOVZ2WL 88(NAM), 4(SP) : 
04 BE41 9F 0015 USHAB @4(SP)(R1] : 
SA OD 00197 PUSHL R10 > 0889 
50 A2 DD 0139 PUSHL 80(CTX) : 
000000006 EF 4 FB 001 g CALLS #4, EXCHSCMD_MATCH_F ILENAME ; 
20 0 £9 0016 BLBC = RO, :*11$ F 
1 4 DO 00166 MOVL NAM, RI + 0892 
50 5 p 0169 MOVL (CTX. RO ; 
0000v 16C BSBW DOS11_MATCH_UIC : 
14 2 E 16 BLBC ~—_—s«aR2O,-1TS ; 
DD 00172 PUSHL CTX > 0895 
0000v CF 07 FB 00174 CALLS #1, EXCH$SDOS11_DIRE_PUT_ITEM : 
04 =A b6 0179 NCL FILES DISPLAYED > 0896 
50 4A Ad 3C 0017¢ MOVZ2WL 74(CTR) > 0897 
08 AE 50 CO 0180 ADDL2 RO, BLOCKS DISPLAYED ; 
Al 11 001 RB 9$ > 0894 


exch$dos11_directory 


50 03 

000000006 00 

11 oc A 

OC 0 A 

07 OC A6 

0000v CF 

0000v CF 
OF 30. = AS 


00000000G_ EF 


50 03 09 
58 


00000000G_ EF 


00000000G_ EF 
00000000G_ EF 


1 Sebi 


50 00018292 


3; Routine Size: 551 bytes, Routine Base: 
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MOMOMMOUVIE FP OMONOAUNODOONM COSC NOC FPOOCOOVNOMOO "D> 
D0 -"$ DOWOMM MNT JNOOW™ MOT 2S SM NI SO - FO OWT TOS 


EXCH$D0S11_COD 


ww wo felololelelelelololelelelelelelololelelelololelelol olelelololoclolo) 


> PNIPIAIPIPIPIPIPIPYUA,) —? — tt tt 2 8 2 ot 6 ot do od od = = = 
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Cem +s NA 
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(NAM), NAM 
$A_GBL 

‘ “CANCELED, STATUS2 
#3, STATUS2 


BSSIGNAL 


> 
oan 


H 
H 
U 
L 
1 
4 
1 


7-2. = Ge 


#0; 
§ 
I 
2(R6), 158 

(RS), 138 
2(R6), 15$ 
gxcnsost1 DIRE_PUT_ITEM 
DIRE_PUT_ITEM 


CH 
(R 
ULL STR 
CH 


RZ 
rre 
=< 


RE_PUT 


#98962, ATUS2 
3, STATUS2 
STArUs8, STATUS 


mu — 
o- Ow et OCR 


$ 
P. sAAE FAOP 
P.AAG, FAOP 
BLOCKS DISPLAYED 
FILES DISPLAYED 


FA 
#3, EXCHSUTIL_FAO_BUFFER 
RO, FAOP 

FAOP 

#1, EXCHSDIRE_PUT 


#1, EXCHSUTIL_DOS11CTX_RELEASE 
STATUS, RO 


Bee Se Se Se Se Be Be Be Se Se Be Se Se Se Se Be Se Se Se Se Be Be Ge Se Se Be Se Se Se Se Se Se Se Se Ge Se Se Be Be Be 


Oulkwn—O 
—_ 
So 
oO 


Sblock_ check (2, .dire, dire, 598); 
Perform a couple of sanity checks 


eeete | check (2, (.dire Cdire$l_cur_column] LSSU .dire Cdire$l_q_columns]), 265); 
Slogic_check (2, (.dire Cdire$l=cur_width] LSSU .dire Cdire$l—List _width]S, 2 66); 


hws oe 
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v04-000 exch$dos11_dire_put_ item 14-Sep 5-19 41 33:08 EXCHNG.SRCJEXCDOS11. 3 31 . (8) 
; 866 0955 1 GLOBAL ROUTINE exch$dos11_dire_put_item (ctx : Sref_bblock) : NOVALUE = %SBTTL ‘exch$dos11 _dire_put_item' 
B67 0956 ¢ BEGIN = Saget : - 
: 868 832 '+4 

; 869 958 ! 

; af 3494 FUNCTIONAL DESCRIPTION: 

: 3° 349 Add a single item to the output Listing, writing the record if we hit the column count 

3; 874 foes ' INPUTS: 

; 875 0964 ! 

3 ore Boe? } ctx = an DOS11 directory entry context block, if address is zero, means write buffer. 

; 878 0967 ! IMPLICIT INPUTS: 

; 879 0968 ! 

; 880 0969 : dire - directory work area 

; 881 0970 ! 

: 88 0971 ! OUTPUTS: 

: 88 097 ! 

> 884 097 ! none 

; 885 0974 ! 

: 886 0975 2 ! IMPLICIT OUTPUTS: 

3; 887 0976 § ! 

; 888 0977 ! none 

; 889 0978 2! 

s 0979 § ' ROUTINE VALUE: 

: 891 0980 ! 

: 892 0981 2! true if put succeeded, false if not 

: 893 0982 2! 

> 894 098 § ' SIDE EFFECTS: 

; 895 0984 ! 

; 896 0985 2! error conditions will be signaled 

3; 897 0986 2 !-- 

; 898 0987 2 

; 4899 84 3 $dbgtrc_prefix (‘dosl1_dire_put_item> '); 

: 901 0990 2 LOCAL 
3 902 0991 2 desc : VECTOR (2, LONG], 

3; 903 4444 § status 

$ 099 3 

; 905 0994 2 

; 0995 2 REGISTER ae cee 

: 907 0996 2 wid ! current Listing width 

: 908 0997 : 

; 909 998 

3; 91 999 BIND 

; (91 1000 dire = exch$a_gbl Coxe ese. dire work $ref_bbloc ! pointer to work area 
: 1001 en dire (dire$t_list_buffer] : 2 TOR [diress. list gj BYTE] ! output An fe 


DOOOOOOOOVOVOO 
mC O0On 


hor 


EEE eeEeEeEeEeEOeeEeEeeEeEeEeEeEeEeEeEeEeEeeee a... 


ne — —————————————— — eee 


| 
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‘oetboo cnchSdostt.gire pur ites 14-Se 


wid = .wid + dire$Sk_item_spacing; 


oovownownownowovod 
a SS 
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~o ~o 
SESSSSSSSLISSSELELEL 
Wr Wr —- OC C@Onou® 
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: If the ctx is a 1, then print a ‘=>(end-of-tape)" 
if .ctx EQL 1 
THEN 


-1984 00:52:08 AX=11 Bliss-32 V4.0-74 Page Ex¢ 
O71 984 99:36:04 EXCHNG  SRETEXCDOSI 1.63951 ns 3 v04 
? } } H Perform required initializations ; : 
+ 925 14 dire CdireSv_items printed] =_true; ! one or more items has bee» printed 33 
$ \? wid = .dire [direst cur.widthd; ! a fast register for the current width : : 
: H ; An input address of 0 means that we should flush the buffer ; } 
930 15 if (.ctx EQL 0) 33 
93) 0 THEN i, 
4 ¢ 1 BEGIN zt 
9 : IF .wid GTR 0 : 
935 be THEN 
H 3 Teen] 0 id 
esc = wid: 
9 0 § desc a = buf 0); 
939 028 exch$dire_put (desc); 
ee ms 
ace 031 dire Cdire$l_cur_column] = 0; 
94 0 ; dire (dire$l_cur_width] = 0; 
8 pe rune true; 
035 , 
0 ! Add the separator to the buffer 
037 : 
O38 IF .dire Cdire$l_cur_column] NEQ 0 
039 THEN 
040 BEGIN 
beg CHSFILL (ZC ° *, direSk_item_spacing, buf C.wid]); 
4 
5 
6 
7 
8 
9 
0 
4 


SSSSSSSSSSRERELELE 


Ln —O OCONOu 


964 

965 

206 CHSMOVE (ZCHARCOUNT ('> (end-of-tape)'), UPLIT BYTE ("> (end-of-tape)'), buf C.wid -1]); 
96 wid = .wid + ZCHARCOUNT (‘> (end-of-tape)') -1; 

968 END 

39 CTX should be a valid pointer, print the file info 


ELSE 
BEGIN 
$Sblock check (2, .ctx, doslictx, 621); 
We always add the pointer to the directory if this is the current file 


SESS 


<3 


AAAI AI AAAI NEN NI WII ARID PIPIPUINI WWIII WWI NIAID WIA BO 

m 
- 

@ m 

m z 

i>) o 

_ 

z 


Sssssesss 
JoAruns—sco 
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if .ctx Cdosi1ctx$v_pointer) 
THEN 


3 


OO 
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EXCH$D0S11 dos11 file and directory routines 1S-se =1984 00:52:08 AX=11 Bliss-32 V4.0-74 Page 31 ExC 
‘fbetboe exch$dosli_dire put. iten 14-Sep-19 4 99:35:06 EXCHNG.SRC Excpusi1 63551 . 3 v04 
| 
E 980 } buf C.wid -1) = %C ‘>’; | ; } 
E i : 4 , Add the owner directory to the buffer if requested ‘ ! 
is ¥ 1 18 IF_.dire Cdire$v_q_owner] : ; 
13 985 1074 THEN 4 
: 9 1075 4 BEGIN 5} 
s 9 1 8 4 CHSMOVE (doslictx$s_exp_directory, ctx Cdoslictx$t_exp_directory], buf C.wid]); 4 
/; «(988 1077 & wid = .wid + doslictx$s_exp_directory; :4 
3 989 1078 ; | . 
3 $31 1986 We always add the filename and directory to the buffer ‘ : 
3 395 1986 CHSMOVE (doslictx$s_exp_fullname, ctx Cdoslictx$t_exp_fullname], buf C.widJ); : : 
> 994 10 wid = .wid + dosl1lcfx$s_exp_ fullname; : 4 
3 238 1085 ! Add the file size if requested 24 
; WP Ise ; ; 4 
; 998 108 If .dire Cdire$v_q_size] . 4 
; .999 1088 THEN - 4 
; 1000 1089 4 BEGIN 4 
; 1001 1090 4 LOCAL : 4 
F 1908 1091 4 addwid, . 4 
; 100 1098 & ctrstr; 7 
3; 1004 1093 4 IF .dire Cdire$v_q_octal] . 4 
; 1005 1094 4 N ef 
3 1006 1095 2 BEGIN | a 
; 1007 1096 addwid = 7; ° 4 
: 1008 1097 5§ cirstr = ZASCID * !60wW'; .4 
: 1009 1098 5 D 24 
; 1010 1099 4% 74 
: 1011 1100 5 BEGIN . 4 
: at 1101 § addwid = 5; 74 
; 101 1196 5 ctrstr = ZASCID ‘!5UL'; a 
; 1014 1103 4 END; : 
: 1015 1104 4 desc ro} = .addwid; ef 
; 1016 1105 4 desc = buf C.wid); 74 
3 1017 1106 5 IF NOT (status = $fao (.ctrstr, 0, desc, .ctx Cdoslictx$w_blocks])) | ; 
; 1018 1107 4 HEN :] 
3; 1019 1108 4 Sexch_signal_stop (.status); | ‘ : 
; 1020 1109 4 : 
; 1021 1110 4 wid = .wid + .addwid; sf 
; 10 ¢ 1111 END; | ‘ 
: 10 1118 i] 
; 1026 111 ! Add the date if requested ‘ ! 
|; 1025 1114 i : 
3 1026 1115 if .dire Cdire$v_q_date) 21 
3 1027 1116 THEN i] 
; 1028 17 4 BEGIN | : 1 
; 1029 1118 4 CHSMOVE (1, UPL!T BYTE (' '), buf C.wid]); | :] 
> 1030 1119 4 wid = .wid + 1; ; | : | 
3; 1031 1120 4 CHSMOVE (doslictx$s_exp_date, ctx Cdoslictx$t_exp_date], buf C.wid]); 3 1 
: 10 é 1121 4 wid = .wid + dosllctx$s_exp_date; | : | 
i] 11¢¢ END; ; 
; 1 5 1124 ' Add the protection if /FULL requested : 1 
> 1036 1125 21 
| 
\ 


nn 


| 
| 
| 
| 


dD 1 

—ExXCHS00S11 ios11 file and directory routines 16-Sep-1984 00:52:08 AX-11 Bliss-32 V4.0-74 Page 32 
aves Cc Sdosii_dire put ites 12-80 8=18¢ 90:38:06 PEXCHNG SRE EXCDOS11. $3.1 . ae 
IF _.dire Cdire$v_q_fullJ 

THEN | 


addwid = 6; 

ctrstr = ZASCID ' <!30B>'; 

desc (0) = .addwid; 

desc (1) = buf C.wid); 

mg (status = $fao (.ctrstr, 0, desc. .ctx Cdoslictx$w_protection])) 
Sexch_signal_stop (.status); 


wid = .wid + .addwid; 


i 

4 

4 
4 
4 
4 

4 
e 
H 

4 
4 
4 | 
‘ 
4 
END; 
END; | 
Do we need to flush? 

1 


IF (dire Cdire$l_cur_column]) = .dire Cdire$l_cur_column] + 1) GEQU .dire Cdire$l_q_columns] 


WR OOO WO A RW OO NOE UO Dea 


PESSRERERSSSSSOSSSSER PEER ERE ECCS 
aia a a st at = ts = ea 


Be Se Ge Oe Se Se Be Se Ge Ge Be Ge Se ae SH Oe Se Oe Se Ge Se Oe Se Se Se Se Se Se Se Ge Se Ge Se Se Ss oe 
—SOODNOAWVE WN OOD NOUS WN SO OENOUEWR—"OOOnGO F 


a a ak a a ed et “a 8 ed wd 


BEGIN 
desc (0) = .wid; 
desc (1) = buf (0); 
exch$dire_put (desc); 
dire CdireSl_cur_column] = 0; 
wid = 0; 
END; 
069 dire Cdire$l_cur_width] = .wid; 
070 
071 
072 ; 
29 65 70 61 74 2D 66 6F 2D 64 6E 65 28 20 3£ 9010¢ P.AAL: ASCII \> (end-of-tape) \ ; 
00 00 00 57 4F 36 21 0011C P.AAK: <ASCII \_!60W\<0><0><0> : | 
01920005 8 4 P.AAJ: :LONG 17694725 : 
00900 0° 00128 “ADDRESS P.AAK : 
4c 55 1 0012C P.AAM: SASCII \!5UL\ ; | 
010£00 4 00130 P.AAL: LONG 17694724 : 
000 0099" 01 “ADDRESS P.AAM : | 
0138 P.AAN: .ASCII \ \ ; | 
00 3 42 4F 33 21 3¢ St H P.AAP rat ; <!30B>\<0> : 
01969067 O146 PLAAD: ZLONG. 17694737 3 | 
00000000" 00148 “ADDRESS P.AAP ; | 


| 
RETURN; 
-PSECT EXCH$D0S11_PLIT,NOWRT,2 | 
| 
| -EXTRN SYSS$FAO 
| 


v——_———— nr 


» | 
| 
| 


1 | 
EXCHS$D0S11 dosi1 file and directory routines 1b-5e -1984 :52:08 AX-11 Bliss-32 V4.0-74 p 3 
v06-000 exch$dosii_dire put item 1 ~ge7} 38% 99:38 be YEXCHNG SRe EXCD0S11.B32;1 — a 
| .PSECT EXCHS$DOS11_CODE ,NOWRT,2 | 
| OFFC 00000 ENTRY ExcHsp0s11 DIR -PUT_ITEM, Save R2,R3,R4,R5,-; 0955 
| SE ¢ C2 000 me nso ' 
50 000000006 EF o¢ c¢ 0098 ADDL3 #10, EXCHSA_GBL, RO + 1000 
: 60 00 00000 MOVL (ROS, R + 1001 
44 AB 3 0010 MOVAB 68 (RB) R? : 
| 2 O24400FE 8F p 0014 MOVL @# 8011134, R2 : 1005 
51 0256 F C 0001 MOVZWL #59 R1 : 
50 8 DO 000 MOVL RB, RO : 
000000006 EF 16 900 JSB XCHSUTIL_BLOCK_CHECK : 
6E 40 AB 9E 00 MOVAB 64(R8), ) + 1009 
28 «A 00 BE D1 000 D CMPL  a0(SP). 40(R8) : 
14 1F 00032 BLSSU : 
| 7E 0109 BF 3C 00034 MOVZWL #265, -(SP) : 
4 DD 00039 PUSHL # : 
000000006 8F DD 00038 PUSHL HEXCHS BADLOGIC : 
000000006 00 03 FB 00041 CALLS #3, L IBSSTOP : 
38 AB 3¢ = ABsé#D1:«O00048 18: CMPL © 60(RB), 56(RB) + 1010 
14 1F 00040 BLSSU 2 ; 
7E 010A BF 3C O004F MOVZWL #266, -(SP) ; 
4 DD 00054 PUSHL #1 : 
000000006 F DD 00056 PUSHL a BADLOGIC ; 
000000006 00 03 FB 9005¢ CALLS #3, LIBSSTOP ; 
30 «AB 02 88 00063 2S: BISB2 * 48(RB) + 1014 
56 3c =O ASs«éO 90067 MOVL  60(R8), WID + 1015 
59 04 AC dO 00068 MOVL CTX, R9 + 1019 
19 12 0006F BNE ; 
‘56 D5 00071 TSTL WID + 1023 
0€ 15 00073 BLEG 460s 38 : 
04 AE 56 7D 00075 MOV WID, DESC > 1026 
04 AE 9F 00079 PUSHAB D + 1028 
000000006 EF 01 FB 0007C CALLS #1. EXCHSDIRE_PUT ; 
. 90 BE D4 00083 3$: CLRL a0(SP) > 1031 
C AB D4 00086 CLRL  60(RB8) ; 1032 
04 00089 RET : 103 
00 BE rf QOO8A 4$: TSTL a0(SP) ; 1038 
OF 13 0008D BEQL ; 
8647 18 00 00202020 8F FO 0008F INSV #2105376, #0, #24, (WID)+CR7] > 1041 
56 02 CO 90099 ADDL2 #2, WID : 1048 
04 11 909¢ BRB 6 > 103 
8647 20 90 O009E 5$: MOVB #32, (WID)+CR7) > 1046 
01 9 D1 OA 6$: CMPL R9, #1 : 1052 
OE if A BNE ; 
FF A647 0000" CF OF 2 O00A7 MOVC3 #15, P.AAIL, -1(WID)CR7] : 1055 
56 E £0 OOAF ADDL2 #14. wid > 1056 
00¢4 0082 BRW 6$ : 105¢ 
52 OOBAD0FC BF b0 0085 7$: MOVL #9044220, R2 > 106 
| 51 0260 BF 3C 9 BC MOVZWL #621, R1 : 
50 9 DO 000C1 OVL  R9, RO F 
000000006 EF 16 000C4 JSB EXCHSUTIL BLOCK_CHECK ; 
05 a9 3 fi OOCA BBC #3, 4O(ROT, 8$ : 1067 
FF A647 7 0 OO0CF MOVB #62, -1(WI6)CR7) > 1069 
| SA ae 4: 004 8$: MOVAB 44(R8), R10 : 1073 
09 6A 09 ’ 008 BBC #9, (R10), 9$ ; 
| 6647 5c A A 28 0000C¢ movc3) #16, 92(R9), (WID)CR7) : 1076 
| 
} 
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416 bytes, 


; Routine Size: 
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1 
dosii file and directory routines 18-5e -1984 252: AX-11 Bliss-32 V4.0-74 
exch$dosii_exit handler (status, volb) 12236871382 99:36:00 EXCHNG.SRCJEXCDOSi -B832;1 


GLOBAL ROUTINE exch$dosll_exit_handler (status, ZSETTL ‘exch$dos11_exit_handler (status, volb)' 
volb : $ref_bblock) : NOVACUE = 


roe 


FUNCTIONAL DESCRIPTION: 
Write two tapemarks at the end of the tape 
INPUTS: 


status - pointer to status 
volb = pointer to volb whi 


IMPLICIT INPUTS: 


code 
ch has been connected to the DOS-11 device 
none 
OUTPUTS: 
none 


IMPLICIT OUTPUTS: 
| 


C909 0908 SIN NN NSN NNO OA AOAO 


FWN $C OONOU EWN oO O@ vert tay yet herp SP} NOUS WN—(OOONAULE wry 


none 
ROUTINE VALUE: 


; 
i none 
i SIDE EFFECTS: 
i any modified directory segments will be written 
$dbgtrc_prefix (‘dosll_exit_handler> '); 


OOOO OMMOMODC 


BIND 
dosv = volb Cvolb$a_vfmt_specific] : $ref_bblock ! Format specific block, contains iosb 


Sdebug_pring tit (‘entry'); 
$block~check (2. .volb, volb, 431); 
$Sblock"check (2, .dosv. dosi{, 4323; 


$trace_print_fao (‘entry - volb !XL*, .volb); 


FDI DED at we kt sk nt kk 


SOCOCOCOCOOOCOOONO 


DWNOUSWN OO OONOM 


: If it looks like the tape can be written (i.e. no serious errors have occurred) try to write the tapemarks 
if .dosv Cdos11$v_position_valid] ! We should know where we are 


,dosy Cdos11$v_end_of_tape] ! and that should be at the end. 
BEGIN 
Write two tape marks to mark the end of the tape 
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; Routine Size: 


H 1 
dosi1 file and directory routines 16-Sep-1984 00:52:08 AX-11 Bliss-32 V4.0-74 
exch$dosi1_exit “handler (stetus, volb) 1o-808-13be 90:36ibe EXCHNG. SRC EXCDOS 9753551 
1219 exch$io_dosll_write_tape_mark (.volb); 
! ? exch$io_dosi1l_write_tape_mark (.volb); 
1 END; 
1558 
1224 RETURN; 
1225 END; 
003C 444 «ENTRY EXCHS$DOS11_EXIT_HANDLER, Save R2,R3,R4,R5 
2? 00000000G EF 9€E 00002 MOVAB EXCHSUTIL_BLOCK” CHECK 
4 000000006 EF 9€ 00009 MOV EXCH$10_D0S11_WRITE _TAPE MARK, R4 
53 08 ag 00000054 F C1 00010 ADDL #84 vOrB. R3" 
52 041B00F3 BF bo 0019 MOVL 46867 579, R2 
51 O1AF F C 00020 MOVZWL # - 1 
50 08 AC 00 00025 MOVL VOLB, RO 
65 16 000 JSB EXCHOUTIL. BLOCK_CHECK 
53 63 DO 00028 MOVL 
52 003600FD BF b0 000 : MOVL w536197, R2 
51 0180 gf C 000 MOVZWL + R1 
50 3 DO O0O03A MOVL 0 
65 16 00030 JSB FXtuEUTIL a. CHECK 
11 oc AR E9 Boze BLBC Bie 
0c oc A3 0 E1 00043 BBC : 
08 AC DD 00048 PUSHL 
64 01 FB 00048 CALLS He PEXCHSIO. DOS11_WRITE_TAPE_MARK 
08 AC OD OO004E PUSHL 
64 01 FB 00051 CALLS , EXCH$I0_DOS11_WRITE_TAPE_MARK 
04 00054 1$ RET 


85 bytes, Routine Base: EXCH$D0S11_CODE + O9CA 


rom 


<m 
po 


a ss Ss Ss Ss a ) a S ) Ss SS Ss SS Gs SS YS 


WR $0 OBNO VE WN OOO NRUEWH"0O0 


WN O VOnNOulwnr— 


wt 
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dosi1 file and directory routines 1b-se -1984 00:52: AX-11 Bliss-32 V4.0-74 P 7 
exc $dosti_expand. filename (ctx) 1 735071382 99:38:86 LEXCHNG. SRE Exepusi 1.63 31 a0e 7. 
ot Opat ROUTINE exch$dos1l_expand_filename (ctx : $ref_bblock) : NOVALUE = ZSBTTL Seantcoriaueane ttl 


++ 
: FUNCTIONAL DESCRIPTION: 


Convert the information in a directory entry 
filename to ASCII and converting the date to 


! INPUTS: 


ko pects text. This involves changing the RADIX-50 


MEW —OOOnNO F— 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
ctx - receives ASCII filename info 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


L 
' 

: | 
i | 
i 
i | 
' 

i 

i 

! 

ctx = pointer to an dosiictx structure which contains a copy of the directory entry 

' 

i 

i 

' 

i 

i 

i 

i 

i 

i 

i 

i 

' 

J 


success or failure if the entry is invalid 

i SIDE EFFECTS: 

error conditions will be signaled 
| 
| 


$dbgtrc_prefix ('dosil_expand_filename> '); 


LOCAL 
dayomon : REF VECTOR (12, BYTE], 


PAEXEQPQEAEASMAMNANNIN & SSL LLL LEE 
NOUS WN OC ODNAUE WN" O OONOUSWN-OOe 


ay. 

date_desc : VECTOR [2, LONG], 
status, 

ch 
BIND 
volb 
dosv 


Lb] 
volb Cvolb$a_vfmt_specific] : $ref_bblock 


check (2, .ctx, doslictx 
Sblock~check (2. .volb, volb, 619 
Sblocksheck (2, .dosv. dosl1, 6205; 


! Convert the file name from 3 Radix-50 words to ‘dosiictx$s_exp_name* ASCII characters, type from 1 R50 wor | 


$debug_print (‘entry - ctx Mh og, teh 
= ): ° 


POPOROPOPONOPONoNoPOMoNPofofonoefny 

SNS NNN ao 
mo we —CcoOe 
PEPIPOPOPDPOPIPPIPOPIMPININIPININPIPIPIDINPIPIPPIPIPIPUPIPYAININIPININPIPIPOPINOPIPIPIPIPOPIPUPIPIPIPIPIPUNININY — 


5 


ctx Cdoslictx$a_assoc_vo : $ref_bblock, | 
| 


J 1 
11 sii fi i i - ° oe - 
RE Se A ee sieve AHN MBSR UBM, tl 


expand _filename (ctx) 
: ‘doslictx$s_exp_type’ chars 


oxchtut{t fadix50_to_ascii (6, ctx Cdoslictx$l_filename_1], ctx [doslictx$t_exp_name]); 

exc noutit aye 3t° rescil (3, ctx Cdoslictx$w filename_2), ctx dosiictx$t_ _exp_name +6); 

ch = $f IND =i (dosTictx$s_ =$*P- name, ctx CdosTictx$t_exp_nameJ, 

ctx Caos! ctx$l_exp_name_len] ="(IF .ch EQL 0 THEN doslictx$s_exp_ name ELSE .ch = ctx Cdoslictx$t _exp_name]) 


exch$util_radix50 to, ascii i exp cizee ctx rH filetypel, ctx Cdoslictx$t_exp_typeJ); 


PEWN-"OOONOUEW 


04 9 ch = CHSFIND_CH (dosTictx$s =$*P- ty e, ctx dost {ctxse_ exp_type 
05 g ctx Cdosiierxse exp_type_len «ch EQL 0 THEN dosS11cfx$s_exp_ type ELSE .ch = ctx Cdosiictx$t_exp_type]) 
> Create a filename in the standard, non-embedded blank format by concatenating the name, a ‘'."' and the type 
= tgos} tcexs aestt fullname_len] = .ctx Cdosiictx$l_exp_name_ fi + 1+ .otx tape tietasi 5eXP type. len]; 
CHSCOPY cts. Veexst -0xD_ name_len], ctx Cdosl1cfx$t_exp_name ' the file 
br i i ie wee separator 
ey, bostteaxsl. “exp. =type len], ctx Cdoslictx$t_exp_typel, i the file typ 
xc . doslictx$S_exp_fulTname, ctx Cdoslictx$t_exp_fu iname)); ! the blank-padded result 


Create an ASCII representation of the date 
if .ctx Cdoslictx$w_date] EQL 0 
CHSMOVE (doslictx$s_exp_date, UPLIT BYTE (" < nodate >'), ctx Cdoslictx$t_exp_date]) 


ee eee ee 


OOO NO MEW OOO NOU EWN (OO ONAUE WN" OVOONOU EW 0 OM 


Ww 


30 ELSE 

30 BEGIN 

30 year = 1970 + (.ctx Cdoslictx$w_dateJ/1000);! 1970 is stored as zero 

31 day = .ctx Cdosiictx$w_ date) MOD 1000; i Day of year is stored as remainder 
2 31 dayomon = oe -year <072,0> EQL 0 ! Pick heap year or regular depending 
§ 31 THEN days_ of _months leapyear ! on whether year is divisible by 4 

4 5 ELSE days_of_months); 

mon = 4 
2 3 WHILE .day GTRU .dayomon C.mon] Subtract out number of days in each month until we are wit 
' a mon 

3 $1 - -mon LSSU 12 ! (Print *** if we didn't find it) 

31 BEGIN 
2 32 day = .day - .dayomon [.mon); 
§ $5 — = .mon + 1; 
2 32 Hey v-* F9] = Gost ictxte crabhs “Sip. ! set up a descriptor for FAO 
§ date. gene = ctx Cdoslictx$t =fat 

T (status = $fao (ZASCID ° =!A dine, 0, date_desc, .day, 4, months C.mon], .year)) 


Ww 
oo 


= $exch_signal_stop (.status); 


If the tape is currently at this file, mark for the pointer 
tei (dos11ctx$w_file_number] EQL .dosv Cdos11$l_current_file) 


+ Wiggs tt cexby, pointer] = true; 
pose dos11$v_cirrent_marked) = true; 


ELSE" 
ctx Cdoslictx$v_pointer] = false; 


ee ee ee et ce ee ed ek a tk a nk ae nd od td od = 
m 
WM Pwr ONO EWN OO OOBNOUES WN —"OOMOWVOUFWN—O 
ee ee ee ee ee ee me me me a ee ee ae ee ee ee el ee ee ce ce ce ee ee ee ee ee ee ee ce ae ee ee ee ee ee ee ee a ee ed 
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a | 
dos11 file and directory routines 16-Sep 8 AX-11 Bliss-32 V4.0-74 P 9) 
exch$dos11_expand. filename (ctx) 14-Sep 7138 93: 38: be EXCHNG. SRC Excp0si1.649;1 math 
1340 
: *} Create an ASCII representation of the UIC format directory | 
1 rk date desc fo) = doslictx$s_ex gi trectory: ! set up a descriptor for FAO 
1344 Gate. des< = ctx CdoslictxSt cf3B di gectory ry]; 
: $2 one (status = $fao (ZASCID ' 6,!306 6, date desc, .ctx Cdosllctx$b_group], .ctx ite trisacenie, enema 
: ¢} Sexch_signal_stop (.status); | 
1349 1 END; 


-PSECT EXCHS$DOS11_PLIT,NOWRT,2 
P.AAQ: .ASCII \.\ 


E 0014¢ ; 
3E 20 65 76 61 66 6F 6€ 9 36 30 0014D P.AAR: .ASCII \'< nodate >\ ; 
4c 55 36 21 46 41 21 2D 4 1 00158 P-AAT: ASCII \!2UL-!AF!4UL\ : 
010E000C 00164 P.AAS: LONG 1769 4752 : 
00000000" 00168 -ADDRESS P ; 
20 SD 42 4F 33 21 2C 42 4F 33 21 5B 0016C P.AAV: -ASCII 5130841 1308) \ ; 
010E000C 00178 P.AAU: LONG ; 
00000000" 0017¢ “ADDRESS P.AAV : 
.PSECT EXCH$DOS11_CODE ,NOWRT,2 
OFFC 00000 -ENTRY EXCHS$DOS11_EXPAND_FILENAME, Save R2,R3,R4,- ; 1226 
R5,R6,R7,RB,R9,R10,R11 : 
5B 000000006 EF 9 00002 MOVAB EXCHSUTIC_BLOCK CHECK R11 : 
3A 000000006 EF 9E 00009 MOV EXCHSUTIL~RADIX50_ 10. ASCII, R10 ; 
E 08 C2 00019 SUBL2 #8, SP ; 
56 04 AC 00 0001 MOVL TX, R6 3: 1273 
53 14 &A6 00000054 BF C1 00017 ADDL3 #84 g0<R6) R3 > 1274 
52 OO8A00FC BF DO 90020 MOVL #9044220, R2 : 1278 
51 0257 8F %3C 00027 MOVZWL #599, R1 F 
50 56 00 909 C MOVL 6, RO : 
6B 16 OO02F JSB EXCHSUTIL BLOCK CHECK : 
52 041B00F3 BF p0 00031 MOVL #6 87 5797 R2 : 1279 
31 0268 8F 3C 00038 MOVZWL #619, RI ; 
0 14 A6 00 00030 MOVL 20(R6), RO ; 
68 16 00041 JSB EXCHSUTIL_BLOCK_CHECK : 
53 00 0045 MOVL  (R3), RO : 1280 
2 003600FD 8F p 46 MOVL #3539197, R2 : 
51 026C 8F 3C 0004D MOVZ2WL #620, R1 : 
50 59 DO 0005 OVL R9, RO ; 
68 16 00 JSB EXCHSUTIL BLOCK CHECK : 
73 Ab OF 00 PUSHAB 115(R6) > 1285 
3 «= Ab OOF OO05A PUSHAB 60(R6) ; 
06 DD 9090 PUSHL # : 
6A FB OSF CALLS a EXCHSUTIL_RADIX50_TO_ASCII ; 
79 Ab OF 00 6 PUSHAB 121(R6) + 1286 
48 Ab OF PUSHAB 72(R6) ; 
A p PD ONG, CALLS #8, EXCHSUTIL_RADIXS0.10_ASCII 
73a $9 3a 0006D Locc 6 #32, #9, Hib kRe) : 1287 
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00 
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04 QO1AC 178: 
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EXCH$D0S11 dos11 file and directory routines 16-Sep-1984 00:52:08 AX-11 Bliss-32 V4.0-74 Page 42 Ex! 
‘foetb00 exch$dosli_find_file (ctx, name, name_len) 127388-1 382 19:38 ibe LEXCHNG-SRe EXCD0S11.B32;1 ° ats vo. 
' 
E 6 } 9 1 SL OBAL ROUTINE exch$dos11_find_file (ctx : $Sref_bblock, name, name_len) = ZSBTTL ‘exch$dos11_find_file. ae 
p 1 1¢4 3 
is 1 e9 1 : ' i: 
ls : 08 : : FUNCTIONAL DESCRIPTION: ; | 
: 1670 1328 ¢ | Search for a specific file on a DOS-11 magtape : | 
(3 127 1 ! INPUT ; | 
127 1 i 3 | 
3 1274 1360 ' ctx - pointer to a DOSIICTX structure ; | 
3; 1275 136) ' name = pointer to the start of the file name for which to search $ | 
iz ; re : 6¢ name_len - length of the name | : | 
E 1978 1364 5 i IMPLICIT INPUTS: | : | 
3; 1279 1365 : 3 
: 1280 1366 ' none - 
3; 1281 it +24 ! 3 | 
3 7 Hi 1368 ' OUTPUTS: g | 
: 128 1369 ' 3 | 
; \spe 1309 ctx - if a file is found, the context block will describe it | . 
; 1286 1 ! IMPLICIT OUTPUTS: 3 | 
; 1287 137 ‘ 24 
1; 1288 1374 ! none 3 | 
; 1289 137? ' 3] 
: 1290 1376 2 | ROUTINE VALUE: 7 
: 1291 1377 ! - | 
; 1298 1378 ' true if able to find the file, false otherwise 5 | 
> 129 1379 2! 3 | 
: 1294 1380 ! SIDE EFFECTS: 3 
; 1295 1381 ; 3 1 
: 1296 138¢ ' none | 
; 1297 138 og ; 2 1 
; 1298 1384 $dbgtrc_prefix ('dosll_find_file> '); 3] 
5 {9.45 1385 S| 
; 1500 1386 LOCAL 31 
3 133) 1387 flags 3] 
; 130 1388 $ 3} 
: 130 1389 3) 
3; 1304 1390 BIND 3 | 
3; 1305 1391 copy = exch$a_gbl Cexcg$e_copy work] : $ref_bblock, . 4 
3 1306 1336 inp_filb = copy Fropy$a inp_filb) : $ref_bblock, eB 
; 1307 1393 namb = inp_filb Cfilb$a~assoc_namb] : $ref_bblock g 
: 1309 1395 3 | 
5 1319 1336 Loop through all the labels in the directory S| 
3; 1312 1398 flags = (IF .copy cceayby Q_rewind]) THEN dosnxt$m_rewind ELSE 0); ! Rewind for the first file 5 | 
: tf +444 copy Ccopy$v_q_rewind) = 0; ' But only for the first file | 2 
. | ° 
3 1315 1401 WHILE exch$dos11l_next_entry (.ctx, .flags) NEQ 0 : 
. F 16 1008 D | : 
; 151 140 BEGIN ; 
; 1318 1404 : ; | 
3; 1319 1405 flags = 0; ! Don't rewind for later files 
; 1320 1406 


2 
EXCH$D0S11 dos] file and directory routines 16-56 1984 00:52:08 AX-11 Bliss-32 V4.0-74 P 43. 
Sbetb08 exch$dosii_find tile (ekK, name, name_len) 12286871382 99:38:04 EXCHNG.SRCJEXCDOS11. 351 29 TD 


; 1321 1407 IF exch$cmd_match_filename 
3 1 § 1? 3 (.ctx Cdoslictx$l_exp_fullname_len], ctx Cdoslictx$t_exp_fullname], .name_len, .name) 
: 1326 1410 dosil_match_uic (.ctx, .namb) 
; 1325 1461) THEN 
3 1 § 1eig RETURN 1; | 
4 1 141 | 
; 15328 14614 END; 
; 1329 1415 
: 1330 1218 RETURN 0; 

; 1331 141 END; 


003¢ 00000 .ENTRY EXCHSDOS11_FIND_FILE, Save R2,R3,R4,R5 : 1350 
50 000000006 EF 04 C1 00002 ADDL3 #4, EXCHSA~GBL,~RO : 1391 
0 60 DO OOO0A MOVL (RO), RO : 139¢ 
45 3c = AO 18 C1 00000 ADDL3 #24, 60(RO), RS + 139 
93 31 ad £9 00012 BLB (RO), 1$ : 1398 
a 01 DO 90016 MOVL #1, FLAGS : 
0¢ 11 00019 BRB 2$ : 
D4 0001B 1$: CLRL. —s- FLAGS ; | 
31 A0 01 8A 0001D 2$: BICB2 #1, 49(RO) + 1399 
54 04 AC 00000066 8F C1 00021 ADDL 162, CTX, R4 ; 1408 | 
5 04 aC DO OO02A MOVL CTX, R2 ; 
53 DD OO0ZE 38 PUSHL FLAGS + 1401) 
04 AC DD 000 9 PUSHL (CTX ; 
0000v CF 98 FB 000 CALLS #2, EXCH$SDOS11_NEXT_ENTRY : 
5 D3 0038 TSTL RO ; 
3 13 QOC3A BEQL 4$ 5 
D4 0003C CLRL ~—s FLAGS + 1405 
08 AC DD OO03E PUSHL NAME + 1408 
OC AC DD 00041 PUSHL NAME_LEN : 
54 DD 00044 PUSHL : 
50 A2 DD 00046 PUSHL  80(R2) ; 
000000006 EF 04 FB 00049 CALLS #4, EXCHSCMD_MATCH_ FILENAME ; 
DB 50 £9 0000 BLBC = RO, 3 : 
51 65 dO 0005 MOVL (R5), RI + 1410 
50 04 AC B60 00056 MOVL CTX, RO ; 
0000v 30 0005A BSBW DOS{11_MATCH_UIC ; 
CE 50 €9 00050 BLBC ~=_«aRO, -38 : 
50 01 BO 90060 MOVL #1. RO + 1412 
4 0006 RET : | 
50 04 00064 4$: CLRL = RO > 1416 | 
04 00066 RET + 1417 


; Routine Size: 103 bytes, Routine Base: EXCH$D0S11_CODE + OBCC 


EXCH$D0S11 os11 file and directory routines 1b-se Sep- AX=-11 Bliss-32 v4 Page 44. Ex¢ 
riveted exch$dosi i. form_cur “date (ent) =30071 38 99: 36; $f EXCHNG. SRC} Sexcoosis.63 B32;1 ’ (12) | v04 
5 } 3 1618 1 Soak ROUTINE exch$dos11_form_cur_date (ent : Sref_bblock) : NOVALUE jsb_r1 = %SBTTL ‘exch$dosi1_form_cur_. 
: 1335 1420 2 44 

3 3 1421 ' 

: ! t 1° ¢ FUNCTIONAL DESCRIPTION: 

; } , 1? ¢ Format the current date, placing it into the date field of an DOS-11 directory entry 

: 1341 14 6 i INPUT: 

s 1 ¢ 14 ' 

3 : Z 1? 8 ent - pointer to the directory entry 

> 1365 1436 2 | IMPLICIT INPUTS: 

3; 1346 1431 ! 

3: 1347 14 § ! none 

; 1348 14 ! 

: 1349 1434 2 } OUTPUTS: 

3; 1350 1435 ! 
: \ 23 i? § none 

1388 1438 2 | IMPLICIT OUTPUTS: | 
s 1328 1439 ! 
3 1355 1440 ! none 
3; 1356 1441 : 
; 1322 1646 ROUTINE VALUE: | 
: 1359 1444 i none | 
3; 1360 1445 ! 

3; 1361 1446 ' SIDE EFFECTS: 

é 1306 1447 ! 

: 136 1448 ! none 
; 1364 1449 2 i-- | 
3: 1365 1450 
: 1366 1451 $dbgtrc_prefix ('dosl1_form_cur_date> '); | 
: 1367 1026 
: 1368 145 LOCAL | 
: 1369 1454 date & 
; 1370 1455 dayomo 2 PREF F VECTOR fi BYTE), 

> 1371 1456 timbuf : VECTOR £7, WORDS | 
3 1376 1457 : 
: 13 1458 
3; 1374 1459 BIND 
3 1373 1ee9 year = timbuf (0) : WORD, month = timbuf [1] : WORD, day = timbuf [2] : WORD; 

: He 1468 Snumtim (timbuf=timbuf); 

: ! 79 1664 date = (.year - 1970) * 1000; ' Multiply years since 1970 times 100 

: 1389 1466 dayomon = 4 4 Op el <0,2,0> EQ. 0 ! Pick leap year or regular depending 
3 1336 1467 HEN days_ of _months leapyear ! on whether year is divisible by 4 : R 
; i 1668 else days_of_months); 
: 1365 1470 INCR mon FROM 0 TO .month-2 ! Subtract 1 to convert 1-12 to 0-11 and one because we do n> 
; 1356 1471 ! current month, add days of previous months to the year 

: 13 1076 date = .date + .dayomon [.mon); 

; 1389 1474 date = .date + .day; ! Add days of this month 


D ni 
EXCH$DOS11 dos11 fil ¢ and directory routines 16-Sep :52:08 AX-11 Bliss-32 v4. Pp 45. EXC 
aati exch$dos11_form_cur date (ent) 14-Sep 71382 99: 36: 88 EXCHNG. SRCJEXCDOS1 “i 31 29e 43) v04 
; 1390 1475 31 
: i 31 1476 ent [dosllent$w_date] = .date; ! Store the final DOS-11 date ; : 
: 4 3 1478 RETURN: 31 
: 1394 147 : ! 
2 
.EXTRN SYSSNUMTIM | : : 
5E 20 ¢2 00000 EXCHSDOS11 LAFORM. £33. DATE: :] 
: 1618 | :] 
08 AE 1 00 0003 abvt € ar : . 
E D4 900 CURL Ri gps + 1462) : 1 
46 «OA F 00009 PUSHAB JMBUF : : 3 
000000006 02 FB 90 CALLS #2, SYSSNUMTIM : 71 
10 AF 3¢ 1 MOVZWL YEAR RO + 1464 33 
FBG ‘ 001 MOVAB -1976(R0), RO : i] 
04 AE 9 O3E F AS 0001 MULW #1000, RO. DATE F | i] 
0 1 AE 9 99 B118 YEAR, #3 > 1466) : ! 
500000" CF 9E 00089 MOVAB — DAYS_OF_MONTHS_LEAPYEAR, DAYOMON ; a 
5 0000' CF 9E 000 6 1$: MOVAB DAYS_OF MONTHS, DAYOMON : 31 
OC AE 12 ss 3C 00035 2$: MOVZWL MONTA 1a 3 1470 37 
OC AE 02 C2 900 A SUBL2 He, | 18(S : 31 
51 01 CE 0003 MNEGL #1, RON” 3 1472) 31 
08 11 00041 BRB 4 : 71 
6E 6140 9A 00043 3$ MOVZBL (MON)CDAYOMON], (SP) : 31 
04 AE 6E AQ 00047 ADDW2 (SP), DATE ; 31 
F3 51 OC AE F3 0004B 4$ AOBLEQ 12(SP), MON, 3$ ; 1 
04 AE 14 AE Ad 90050 ADDW2 DAY, DATE ; 1474) 71 
50 08 AE 12 C1 00055 ADDL #18, ENT, RO : 1476 31 
60 04 AE BO 0005A MOVW DATE, (RO) : 31 
5E 20 CO 0005E ADDL2 , SP + 1479 $7 
05 00061 RSB : 3 
; Routine Size: 98 bytes, Routine Base: EXCH$D0S11_CODE + 0C33 : ; 
31 
3 1 
: 1 
| : | 
3 1 
s 1 
: 1 
| 3 1 
3] 
3: 1 
| i] 
.% 
3 1 
3 1 
Zz 
s 1 
- ¥ 
31 


EXCH$00S11 
v04 


Se 


[SSREReSSE 


POMOPONOPOPOPOny @ 2 2 a OOO 
DNAUNEWN SO OONOUS WN "O0OW 


nm 


a a ee ee ed ad dd 
MEWN OO 


tae et et et et et et keke ad eee ek ae le ek ek ek ke ak ek ee 


Ww 
~ 


GDOWOCGDOOCOSCOSCOCOOOOOOOOODWOMOMMdOM@O@@M@caC vu 


a a kk kk kk dd dd od OO 
PUPPET III III BB PEEP PPP PPLE PLE EEE OO 
—OOODNOAUES WIN —$ O ODNAUE WIN O OONA ME AR @OOONOUSWN—O 


NOR 3 tO 
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lumatch_uic 
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2 
16-Sep-1984 0 34:08 rel Bliss-32 ve 0-285 
14-Sep-1984 12:29:04 EXCHNG.SRCJEXCDOS11.832;1 


soon ROUTINE dosi1l_match_uic (ctx : Sref_bblock, namb : Sref_bblock) : jsb_r0r1 = 
+ 


FUNCTIONAL DESCRIPTION: 
Check to see if the uic info from the nam block match those of the file 
INPUTS: 


ctx = pointer to doslictx block 
namb - pointer to namb block 


ROUTINE VALUE: 

true if the file is selected by the namb, false if not 
SIDE EFFECTS: 
i none 


ee tt ee: 
om 


$dbgtrc_prefix ('dosll_match_uic> '); 

IF NOT .namb Cnamb$v_uic_directory] 
RETURN 1; 

IF NOT .namb Crnamb$v_wild_group] 

THEN 


! If no directory specified, it matches 


! If group not wild, we must check group 
i cnamb Cnamb$b_uic_group] NEQ .ctx Cdoslictx$b_group] 
RETURN 0; 
cu -namb Cnamb$v_wild_member) 
IF .namb Cnamb$b_uic_member] NEQ .ctx Cdosiictx$b_member] 
RETURN 0; 
RETURN 1; 
END; 


! If member not wild, we must check member 


1A 6D «Al 06 £1 00000 DOS11_MATCH_UIC:: 
BBC #6, 109 (NAMB) , 2$ 
04 BBS #4. 108(NAMB). 1$ 
C1 0 CMPB  132(NAMB), 67(CTX) 
1 BNEQ 3$ 
12 1$: BBS #3 108(NAMB), 2 
1 CMPB s«AW31(NAMB), 66(CTX) 
1D BNEQ 3$ 
1F 2$: MOVL #1, RO 
22 RSB 


Page 46) 


(13) | 


XSBTTL ‘dos11_match. | 


16 2 
i RR m=} BA Ares Rate ileal 1e=8ep-1984 5:25:06 — LeXcunc’sResexcousi? .639,1 Page 44) vO0e 
50 Be gar 3$: CLRL RO : 1521 
5 RSB ; 


; Routine Size: 538 bytes, Routine Base: EXCH$D0S11_CODE + 0C95 


Le _ a! |) 
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and directory routines 


Page 48 
. (14) | 


mount (volb) 


ExCD0S11.832;1 


1 § 1 a3 ROUTINE exch$dos11_mount (volb : Sref_bblock) = %SBTTL ‘exch$dos11_mount (volb)' 


FUNCTIONAL DESCRIPTION: 
Perform DOS-11 volume specific mount processing 


volb = pointer to volb which has been connected to the DOS-11 device 
IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


AAA 


ROUTINE VALUE: 


SIDE EFFECTS: 


ome meme meme mms memes meme memset meee mesmo sees es eee es eso 
mn 


$dbgtrc_prefix ('dos11l_mount> '); 


ooey : Sref_bblock, ! a pointer to the dos11 volb extension 
$Sdebug_print_lit (‘entry'); 


Sblock_check (2, .volb 
$logic_check (3, (.vol 


COO O NNN NNN NSO 


0); 
vfmt_specific] EQL 0), 259); 
: Allocate and initialize our volb extension 


util_vm_allocate (exchblk$s_dos11); 
dosiT$k_end_zero - dosl1$k_Start_zero, .dosv + dos11$k_start_zero); ! Set part of block to nulls 


Wn 


5 ok ae tk a ak ee kee ee el tt et et et tt et 


' Store the address of the extension 
' Set the block type and size fields 


volb Cvolb$a_vfmt_specific] = .dosv; 
Sblock_init (.dosv, dos11); 
$queue_initialize (dosv Cdos11$q_entry_header]); 


ee ea a he et ee a ed ed dd ed ed ed 8d od od dd dt 
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! Init the queue of directory entries 
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and director routines p-$e -1 AX-11 Bliss-32 V4.0-74 P 49. 
{ mount (volb) 1b-se0-1984 99: 36: 8 EXCHNG.SRCJEXCD0S11.832;1 soe 48 


Rewind the magtape, since that is the ae way ae can know what the initial position is | 
iF NOT (status = exch$io_dos11_rewind (.volb)) 

RETURN .status; 
} Read the magtape label as a sanity check, we should have either a Label or end of tape | 
con” (status = exch$io_dosi1l_read_label (.volb)) 

os NOT .dosv [dos11$v_end_of_tape] 

RETURN .Status; 

Rewind the magtape again, since the beginning is a good place to start 
IF NOT (status = exch$io_dosll_rewind (.volb)) 

RETURN .status; 
Set the volume type field 

| 


cHSMovE (6, UPLIT BYTE (° pos-11" ), volb Cvolb$t_vol_type]); 
volb Cvolb$l_vol_type_len] = 


RETURN 1; 
EN 


-PSECT EXCHS$DOS11_PLIT,NOWRT,2 
31 31 2D 53 4F 44 00180 P.AAW: .ASCII \DOS-11\ : 


-PSECT EXCHS$DOS11_CODE ,NOWRT ,2 


0O1FC 00000 -ENTRY EXCH$DOS11_MOUNT, Save R2,R3,R4,R5,R6,R7,R8 ; 1522 
58 000000006 EF 9E 00002 MOVAB EXCHS10 DOS11_REWIND, R8 : 
57 04 AC 00 00009 MOVL R + 1564 
52 041B00F3 BF p0 0000 MOVL nehsfes79, R2 : 
51 024E 8F 3C 00014 MOVZWL : 
50 57 00 99019 OVL  —R? : 
000000006 EF 16 0001C JSB EXCHSUTIL _BLOCK_CHECK ; 
6 DD 00022 PUSHL #54 ; 1569 | 
000000006 EF 1 fe 0024 CALLS #1, EXCHSUTIL_VM_ALLOCATE $ 
6 0 p 0028 MOVL RO. DOS : 
00 6E a 00 C 000 MOVCS #0, (SP), #0, #42, 12(DOSV) : 1570 
54 AT 6 D0 09 MOVL  DOSV, 84(R7) : 1572 
08 Ab $ 0 MOVW #54, B(DOSV) : 1574 
A A E D MNEGB #3, 10(DOSV) : 
5 ome 41 MOVAB 1 (ogsy), RO : 1576 
6 D 43 MOVL RO, (RO) : | 
04 A 0 D 4 MOVL RO, 4(RO) : 
DD 0004C PUSHL R : 1579 
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v0e-000 exch$dosli_mount (volb)) 12780871382 99:36: . EXCHNG  SRETERCDOSTS .03951 Page 30 

1 Ff 4 CALLS aren 0_D0S11_REWIND 
a 0 a ~ 

000000006 FE 1 ts 6 CALLS tI ar Xcn$0. DOS11_READ_LABEL 
16 0c ; a : 6B : ATS alg y, 2s 

68 Q1 FB 6 CALL if EXCH$10_D0S11_REWIND 
5D A? 0000" CF 06 58 00 MOVC3 #6, P.AAW, 93(R7) 1599 
59 A? 06 00 0007 MOVL #6, 89(R75 1600 
50 01 D0 0007 4 MOVL #1. RO : 1602 
04 00078 2$: RE : 1603 


; Routine Size: 124 bytes, Routine Base: EXCH$D0S11_CODE + OCBB 
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dosi1 file and directory routines 1b-se -1984 00:52:08 AX-11 Bliss-32 V4.0-74 
exch$dosi1_next_entry (etx, flags) 132800= 138 99:38:04 t 


1604 1 09k ROUTINE exch$dosll_next_entry (ctx : $Sref_bblock, flags 


le¢ 
' 
' FUNCTIONAL DESCRIPTION: 
Return the next entry from an DOS-11 directory 
INPUT: 


ctx = pointer to an doslictx structure 
flags - a structure of bits with the following meanings: 


IMPLICIT INPUTS: 

anything we can find hanging off the context block 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 

true if next entry is now inside ctx, 0 if no more entries 
SIDE EFFECTS: 

none 


$dbgtrc_prefix ('dosll_next_entry> '); 


LOCAL 
ent : $ref_bblock, 
status 
BIND 
volb = ctx Cdoslictx$a_assoc_volb] : $ref_bblock, 
dosv = volb [volbSa_vfmt_specific] +: $ref_bblock 


Sblock_check (2, .ctx, doslictx 
Sblock=check (2. .volb, volb, 66 


$debug_print_fao ("entry - ctx !XL‘°, .ctx); 
Po eheck™ y 608): 
Sblock_check (2, .dosv, dos 


9 ° 
6105; 


EXCHNG.SRCJEXCD0S11.832;1 
: $bblock) = 


flags Cdosnxt$v_rewind) - start at the b 


inning of the 
flags Cdosnxt$v_count_blocks] = make sure that 


tape 
ock count is valid 


the context block is updated with context necessary for wildcard processing 
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le and directory routines 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-74 
li_next_lentry (ctx, flags) 107820-1 382 93:35:06 LEXCHNG. SRE EXCD0S11.832;1 
If the rewind flag is set, then point the current entry at the queue header 
if .flags Cdosnxt$v_rewind) 
THEN 

BEGIN 

$debug_print_lit ('"'rewinding'’’); 

dosv faos11$3_current-entr J] = dosv Cdosi1$q_entry_header); 

44 dos11$v-error_réwinds = false; 


Move to the next entry, by moving to the entry after the current entry 
Sdebug_print_fao (‘entry before moving !XL', .dosv Cdos11$a_current_entry])); 
ent = ..dosv [dos11$a_current_entry]); +s 
$debug_print_fao (‘entry after moving !XL', .ent); 
If the pointer points to the queue header, we have reached the end of the List 
ren EQL dosv Cdos11$q_entry_header) 
BEGIN 
If there has been a rewind due to error, we want to fake the directory as being complete 
IF .dosv Cdos11$v_error_rewind] 
dosv Cdos11$v_directory] = true; 
If the directory bit is set, then the List contains the entire directory and we are done 
IF .dosv Cdos11$v_directory] 
THEN 


BEGIN 
Soev Léget1Sa_current entry? = ent; ' Save the pointer, ofvectivety rewounds to beginning of tap 
a 


A a : ! We return 0, which signals t 


Directory bit is not set, we need to read an additional label and create an entry 
ELSE 


BEGIN 
LOCAL 
last : $ref_bblock; ! pointer to last entry 
} Make sure that the tape is correctly positioned after the Last known file 
last = .dosv Cdos11$a_entry_blink]; ! Get a pointer to the last entry in the queue 
ie Ot NEQ dosv [dos11$q_entry_header) ! If there are no entries, skip the position 
BEGIN 


t there is no next entry 


If the tape position has been lost, rewind the tape so that the position will be known again 


if NOT .dosv Cdos11$v_position_valid] 
THEN 


EGIN 
Soak atnael (exch$_dos11_position); ! This might take a while, warn ‘em about it 
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EXCH$DOS11 dos11 file and directory routines 18-s6 -1984 00:52: AX=-11 Bliss-32 V4.0-74 p 3 Ex¢ 
ribet secnbeoet i nent onary (etx, lags) i 730071382 99:36:08 YEXCHNG  SRETERCDOSII .03 31 age 435 v04 
} 4 1716 ff NOT exch$io_dos11_rewind (.volb) } 
: 1 1218 RETURN 0; 3 7 
18 171 , t ] 
4 1685 1718 Check to see if the current tape position is right after the Last file | 3 } 
: 1641 W721 iF NOT ( 31 
: 1906 if § ((. last Cdosllent$w_file_number] + 1) EQL .dosv Cdos11$l_current_fileJ]) ! Is current one pas ; ! 
3 Hef} \" ¢ 5 (.dosv Cdos11$v_tape_mark]) ! And are we at the ; : 
; 1646 1726 8 THEN 31 
3; 164 17 6 BEGIN 3 7 
: 1648 1728 6 : 1 
: 4 Vf ? 2 Position to the Last known entry, then skip to the next file : : 
: 1651 1731 6 iF NOT exch$dos11_position_tape (.volb, .dosv [dos11$a_entry_blink]) :1 
: 1652 1732 6 THEN - cracked: peat bias apni oo 4 
3; 165 17 6 RETURN 0; 3 ¢@ 
: 1654 1734 6 IF NOT exch$io_dos11_skip_file (.volb, 1) 32 
: 1655 1735 6 THEN 3 ¢ 
3: 1656 17 $ 3 RETURN 0; g¢ 
: 1657 17 ND; 3 <4 
; 1658 1738 4 END; 34 
: 1659 1739 4 $4 
: 1660 1740 4 ' Read the label ba 
3; 1661 1741 & ! 3 ¢ 
; 1906 17ee 4 status = exch$io_dos11_read_label (.volb); 3 ¢ 
3: 166 1743 4 If NOT .status 84 
3 1664 1744 4 THEN Fl 
3; 1665 1745 5 BEGIN za 
: 1666 1746 5 i; 2 
; +984 Hot 2 If we found the end of the tape, record this fact and ‘'rewind'’ the directory : § 
; 344 1789 : iF ,dosv Cdos11$v_end_of_tape] ! Normal double tape mark end 3 § 
: 1671 1751 5 Status EQL ss$_endoftape ! Hit the physical end of tape in Q10 : 2 
3 1676 Ha 5 HEN a | 
: 167 1753 6 BEGIN 3; 2 
; 1674 1754 6 dosv pao] Tis sirectery2 = true; ' Birectory is complete : 2 
; 1675 1755 6 dosv (dosi1$a_current_entry] = dosv Cdos11$q_entry_header]; ! Rewind the directory 3 ¢ 
3 1676 1726 END; 54 
3: 167 175 3 

: 1678 1758 RETURN 0; 3 

: 1679 1759 4 END; 3 

3; 1680 1799 4 $< 
3 1o8) 179) ? Create an entry and add it to the end of the List ‘ é 
; 1888 1468 4 ent = exch$util_vm_allocate_zeroed (dosilent$k_ length); ! Allocate the memory ; i 
; 1oet 1788 ? $queue_insert_tail”(.ent, dosv Cdos11$q_entry_Reader]); ! Add it to the tail | 3 ¢ 
; 34 
5 1687 1706 ? Copy the Label information to the entry : ¢ 
: 1688 1768 4 CHSMOVE (dos11$s_label_buf, dosv Cdos11$t_label_buf], ent [dosllent$l_filename_1]); ; ‘ 
3 3 < 
3; 1690 1790 4 ' Fill in the file number for this entry 8 4 

| 


M 2 
EXCH$DOS11 dosi1 file and directory routines 16-Sep-1984 00:52:08 AX=11 Bliss-32 V4,0-74 Page 54 EXC 
sitet exch$dos11_next_entry (etx, lags) 12780871383 99:36:06 LEXCHNG SRE EXCD0S11.B32;1 . 3} v04 
; 1691 17? 4 ' : 
3; 169 17 4 Strace print fao (‘storing dosv file puaber 'UL into entry’, .dosv Cdos11$l_current_file]); : 
; 193? tt? ? ent [ddsilent$w_file number] = .dosv Cdosi1$l_current_file); | : 
; 199? 1745 ? ; If requested, fill in the size of the file : § 
3; 169 1999 4 IF_.fiags Cdosnxt$v_count_blocks) | ; ¢ 
; 1698 1778 4 THEN ; § 
; 1699 177 BEGIN : 
3; 17 1780 LOCAL : 
; if 1 1? 1 stat2; : 
3 1708 Vy § Count the blocks in the file, and store the count ; 
; 1705 1785 stat2 = exch$io_dos11_count_blocks (.volb); ! Count the blocks 8 
: 1706 1786 5 ent Cdosilent$w_blockS] = .dosv Cdosi1$w,block_count); ! Save the blocks even if an error, 3 ¢ 
; 1707 1787 5§ ent Cdosilient$v_blocks_valid] = true; ! we don't want to try later (we wo i 2 
: 1708 1788 5 ! be able to do any better then) 8 ¢ 
; 1709 1789 5 $trace_print_fao (‘count stat2 !XL', .stat2); 5 § 
: 1710 1790 5§ If NOT. stat2 3 
3 1711 1791 5§ : § 
: ar 1738 6 BEGIN ; 
3; 171 1793 6 a4 
3: 1716 1794 6 ! If we hit the physical end of iane, treat it Like a double tape mark and flag the director 32 
> 1715 1795 6 i as being complete i @ 
3: 1716 1796 6 ! $4 
: 1717 1797 6 IF .stat2 EQL ss$_endoftape i ¢ 
; 1718 1798 6 THEN ie 
: 1719 1799 7 BEGIN :¢ 
3 1720 1800 7 Strace_print lit (‘ss$_endoftape, setting end of directory’); 3 @ 
3; 1721 1801 7 dosv boos! 1e¥ directory) = true; : Directory is complete ie 
3 17S¢ 1006 7 dosv [dos11$a_current_entry] = dosv Cdos11$q_entry_header]; ! Rewind the directory 3 ¢ 
: 17 1803 7 END i @ 
: 1724 1804 6 ELSE i 
3; 1725 1805 ? RETURN 0; ! Return failure $¢ 
: 12726 1806 END; ig 
: 128 1807 4 END; i@ 
: 1728 1808 3 END; ig 
: 1729 1809 2 —END; i § 
| 3 
| F 
; 


N 2 | 
EXCH$00S11 cosii file and directory routines 16-Sep-1984 7:52:08 AX-11 Bliss-32 V4.0-74 Page 55' 
Vv04- exch$dosi1_next_entry (etx, flags) 12286871 38 99:35:00 YEXCHNG SRE SEXCDOSTS 63951 ° (18) | 


<m 
Ox 
Lo 


r | 
; 
; ENT now points to the directory entry | 
le 
If we need the block count, but we don't have it, we will need to locate the file and count the blocks 
fg teos Cdosnxt$v_count_blocks] 
ret -ent Cdosilent$v_blocks_valid] 
BEGIN 
Position to the Last known entry, then skip to the next file 
“wad exch$dos11_position_tape (.volb, .ent) 
RETURN 0; 
Count the number of blocks to the next tape mark, value will be stored in dosv structure 
IF NOT exch$io_dos11_count_blocks (.volb) 
RETURN 0; 
Save the values in the entry 


IN AIPOPOPOPOPINPINPIPINIIN 2 OO OO ee 


ent Cdosilent$w_blocks] = .dosv [dos11$w_block_count]; 
ent Cdosilent$v_blocks_valid] = true; 


END; 
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Copy the entry to the context block 
766 
PRINT: ption 252 verified during compilation 
rer CHSMOVE (doslictx$s_entry, ent Cdosilent$l_filename_1], ctx Cdosiictx$t_entry]); 
aH Expand the directory entry filename information into the context block | 
44) exch$dos11_expand_filename (.ctx); 
ag ; Make this the current entry 
46 dosv Cdos11$a_current_entry] = .ent; 
779 re $debug_print_fao (‘Found “"!AF!AF'’, File quater !UL, entry 'XL", 
778 P -volb Cvolb$l_vyol_ident lenJ, volb Cvolb$t_vol_ident], : 
779 P -ctx Cdoslictx$l_éxp_fullname_len] + dosl1¢tx$S_exp_directory, ctx Cdoslictx$t_exp_directory | 
reo ? ctx Cdoslictx$w_filé_number)> .ent); 
78 RETURN 1; 
188 3 END; 
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EXCH$D0S11 dosi1 file and directory routines iBese 
v04 exch$dosli_next_entry (ctx, flags) 14-Se 
OFFC 00000 
B 000G EF 9E 0000 
Bh 000000006 Ef 3 05 
8 06 =A 4 ¢ 19 
9 94 949 Fb F C1 1 
eee BE 8 bbe 
50 04 ee 06 00 4 
¢ 041B00F3 09 $6 F 
1 0261 F 3¢C 00036 
50 68 DO 00038 
6A 16 000 
53 9 00 49 
52 003600FD F RP 0 ft 
51 0262 F 3C QOO4A 
50 3 D0 His eg 
6A 16 00052 
OA 08 AC €E9 00054 
1A AS 12 A3 9E 00058 
Oc AS 40 8F 8A Bebe> 
57 1A B83 00 00062 1$: 
55 12 A3 YE 00066 
55 57 D1 OOO6A 
03 13 00060 
OOCE 31 Bop eE 
52 OC A3 YE 00072 2$: 
03 6¢ 06 £1 00076 
6 10 88 QOO7A 
06 6¢ 04 €1 0007D 3$: 
1A OA 57 00 00081 
70 11 00085 
54 16 A3 DO 00087 4$: 
55 54 01 00088 
47 13 QOO8E 
19 62 €8 44 
00000000G 8F DD 0009 
000000006 00 01 FB 00099 
68 DD OO0A0 
00000000G_ EF 4 FB Boag 
48 0 §? BRA 
50 18 AG 3C AC 5$: 
28 D6 et 
OE A3 bt o} Bee 
18 62 0 6 bOp8 
16 AS DD QOOBC 6$: 
DD BF 
0000v HH 4 C1 
E E C6 
01 OD C9 
dD CB 
000000006 FF 4 CD 
E9 00004 
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2 93:36:88 = FEN chNcOSaeseRepeis 635.1 


- ENTRY 


BLOCK CHECK, R10 


RTO 
“R 
»_R9 
R2 


6 
L 
j 
{BLOCK CHECK 


L_BLOCK_CHECK 


22(R3), LAST 
AST, R5 


(R2), 5$ 
#EXCH$_DOS11_POSITION 

A /LIBSSIGNAL 

#1, EXCHS$IO_DOS11_REWIND 
24(LAST), RO 

RO, 14(R3) 


#2, (R2), 7$ 
55ta$) 


(R8) 
aoe EACHSDOSTT_POSETION_ TAPE 
RO, 9$ 


(R8) 
4% GXCHSIO_DOST1_SKIP_FILE 
RO, 138 


11 RE XT SENTRY, Save R2,R3,R4,R5,R6,- 
0$1{_COUNT_BLOCKS, R11 
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; 1785 1863 GLOBAL ROUTINE exch$dosll_open_file = %SBTTL ‘exch$dos11l_open_file' 

3; 17 1864 BEGIN 

: 17 1865 ++ 

3 i7 1 4 : 

: if } 6 FUNCTIONAL DESCRIPTION: 

; 173) : e3 Perform DOS-11 volume specific open processing 

3 1798 1871 ' INPUT: 

: 1794 1376 : ! 
; 1795 187 : none | 
3 17 1874 : 
3; 179 1875 ! IMPLICIT INPUTS: 

; 1798 1378 : 
3; 1799 187 } copy work area 
; 1800 1878 : 
: 1801 1879 ! OUTPUTS: 

3 Oe 1880 : 

; 180 1881 : none 

; 1804 1886 : 

; 1805 188 ! IMPLICIT OUTPUTS: 

: 1806 1884 ! 
; 1807 1885 ' filb - receive info pertaining to the open file 
; 1808 1886 : 
3; 1809 1887 ! ROUTINE VALUE: 

; 1810 1888 : ; 

3; 1811 1889 : true if able to open a file, false otherwise 
; 13t¢ 1890 : 
; 181 1891 ! SIDE EFFECTS: 

3; 1814 1996 : 

; 1815 189 . none 

3; 1816 1894 leo 

3; 1817 1895 

; 1818 1896 $dbgtrc_prefix ('dosll_open_file> '); 
3 13}? 1897 
; 1820 1898 2 LOCAL 
3 1821 1899 out_filb : Sref_bblock, | 
3 1Ss¢ 1900 2 status 
3; 182 1901 3 
3: 1826 1306 
3; 1825 190 BIND 
3; 1826 1904 copy = exch$a_gbl Cexcg$a rpgy.work3 : $ref_bblock, 
: 1827 1905 inp_filb = copy (topy$a_inp_filb : $ref_bblock, 
; 1828 1906 ctx = inp_filb [filb$a_context] : $ref_bblock, 

3 1829 190 namb = inp_filb Cfilb$a_assoc_namb] : $ref_bblock, 

; 1830 1908 nam_nam = namb [namb$q_name : $desc_block, ! Get name and type components from | 
3; 1831 1909 nam_typ = namb nemse type : $desc_block, ! the namb 
; is § 1910 volB = inp_filb Cfilb 2.asso¢_volb) : $ref_Bblock, | 
31 1911 inp_namb = copy Ccopy$a_inp_namb : $ref_bblock 
3 1834 1316 ; 
; 1835 191 

; 18 1914 $debug_print_lit (‘entry'); 

3; 183 1915 

3; 1838 IZI8 Sblock_check (2, .inp_filb, filb, 591); 

3; 1839 191 $block_check (2, .namb, namb, 36 3 

3 98 1313 $Sblock check (2, .volb, volb, 595); 


ht tits roo 1$-senctgee 99:58208 


] 9 } Make sure that the output filb points to a valid filb 
i : if (out_filb = .copy Ccopy$a_out_filb]) EQL 0 

1924 

1925 


t_filb = .inp_fil 
Sbiock. _theck (2, .out. Pin, filb, 473); 
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EXCH$D0S11 dosi1 file and director routines 16-Sep-1984 AX-11 Bliss-32 V4 19-2 4 Page 60 
ately exch$dos 5 _open_f , 14-5 at 7 99: 36; 8 EXCHNG.SRCJEXCD0S11.8 $351 . (20) 
; } 8 19 § : If the context pointer is null, then allocate and initialize it. 
: 1851 1928 if .ctx EQL 0 
3; 1 § 19 THEN 
; 43 7 1 . ctx = exch$util_doslictx_allocate (.volb, .inp_filb) ! Create an dos11 context block 
: 1885 1982 } If non-null, we are doing a subsequent lookup in a wildcard search 
; 1889 1934 2 ELSE 
Se 
: HS + 1987 wild = (namb$m_wild_name OR namb$m_wild_type OR namb$m_wild_group OR namb$m_wild_member); 
; 1306 1372 If not wildcard, then we must be done 
; He) 13s) IF (.mamb Cnamb$l_nameflags] AND wilds) EQL 0 
: 1306 1948 RETURN false; 
: 1868 1945 Sblock_check (2, .ctx, dosiictx, 594); 
3; 1869 br 
i a oe 
: 137% 13eh § ! Make sure that we haven't crossed signals someplace 
3 1874 1951 $l ogic_check (4, (.ctx Cdoslictx$a_assoc_filb] EQL “ine filb), 260); 
: 1875 195 Slogic=check (4, (.ctx Edosilctx$a_assoc_volbJ EQL .volB), 261); 
: 1877 1954 ! We assume e file name and type fields in the namb are adjacent. If they aren't, the next call to 
; 1378 132? § exch$dos11 atthe ite will choke. 
: 1880 1957 2 $logic_check (3, (.nam_typ Cdsc$a_pointer] EQL (.nam_nam Cdsc$w_length] + .nam_nam Cdsc$a_pointer])), 262); 


25 


3 

EXCH$DOS11 dos11 file and dicector routines 18-5 Sep-1 AX=11 Oi tee =-32 V4.0-74 Page 61) 

ya tt exch$dosii _open_f , 14-Sep-1 1982 99: 36; 88 excHNG. SRei ExCD0S11.832;1 ° (2h) 
IF ¢ 

; dd Ccopy$v_reopen_input] ! If we are retrying, then reuse the context block 


ELSE ! Otherwise skip to the next file 
exch$dos11_find_file (.ctx, .nam_nam Cdsc$a pointer], .nam_nam Cdsc$w ‘Length] + .nam_typ Cdsc$w_leng | 


SESS ee 
—» 
VPwr— 


oooowono 


889 THEN 

aay 08 BEGIN 

91 6 
538 96 Create the result name string in the filb 

94 inp. filb Cfilb$l_result_name tons = .volb Cvolb$l_vol_ident_ pen ! Length of volume ident 


~o 
w 


x Cdoslictx$l_exp_ fut inane. i “plus gos, \nene 
slog icech check (3 is filb critbse result 5” a. bead Lf rey at $s. result name), 


3 1 

s 1 

3 5 1 

3% 1 

s 1 1 

3 4 1 

3 3 1 

3 1 1 

3 1 1 

3 3 1 

3 7 1968 

3; 1 1970 | 
; 18 1971 

: 18 1978 | 
> 189 197 CHS (.volb en ibs “vol_ident tefl. volB yolbs | Volume rh. 
; 1898 1974 tx Tctx$l_exp_ fullname len ete” gos ietnst exp fullname], 
: HF 244 de 6: fitbss. result_name, inp_filb Ctilbse _result_name]); 
; Hb 4 19977 Strace_print_fao (‘Found “!AF'", .inp_filb Cfilb$l_result_name_len], inp_filb Cfilb$t_result_name]); | 
: 1303 1979 ! Physically position the tape to this file, since the routine expects the address of a dosilent | 
3 138¢ 138 structure, we alter the address so that the offsets of the label fields will match 
: 1308 1356 iF td exch$dos11_position_tape (.volb, (ctx Cdoslictx$t_entry] - Sbyteoffset (dosllent$l_filename_1))) 

: 1908 1984 RETURN 0; 

3; 1909 1985 
3 a 1358 } Define a record stream for this file 
: Har} 1988 ctx Gos} tetast cur -bytel = 0; ' Context is the first byte in 

: 191 1989 ctx Cdoslictx$l_cur_block] = 0; ! the first block of the file 

: 1914 1990 ctx Cdosiictx$l-eof_block] = -1; ! Pick a huge number 

3 1915 1991 inp_filb Cfilb$T_block qgount? = ,ctx Cdoslictx$w_blocks]; ' Put the size in the $1tb (if we kn 
; 1916 1336 inp_filb Cfilb$a_record = 0; ! No valid record or Length 

3 Pat 132? inp_filb Cfilb$l-record_len] = 0; 

: Ha + 44 Make sure that the record format in the filb is correct 

; 1981 Hb ad exch$cmd_fetch_recfmt_implied (.inp_filb, ctx Cdoslictx$t_exp_type]); | 
: 1998 ha For DOS-11 we can treat block transfer mode as fixed 512 
; 19 5 901 IF .out_filb Cfilb$b_transfer_mode) EQL filb$Sk_xfrm_block | 
: % 5 008 -inp_filb Cfilb$b_transfer_mode] EQL filb$Sk_xfrm_block 
; 1928 004 THEN | 
: 1929 BR2 4 BEGIN 
3 19 $ 4 inp_filb Ffitbsp_rec. format) = filbSk_rfmt_fixed; 

3: 1931 38 4 ane fib filb$l"fixéd_len} = 512; 
3 1386 08 END; 
3; 19 009 ; 
3 ieee Big } : Clear all the flags except the ones we want by writing the masks into the longword 

: 1936 Big Ses Cdoslictx$l aCe ES dos}ictx$m_ stream_active; ! A record stream is currently active 

: p44 a inp_filb Cfilb$v_files_found] = trué; i One or more files have been opened 
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exch$dos11_open_file 14-Sep-1984 12:29:04 EXCHNG.SRCJEXCDOS11.832;1 (21) 
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; 1378 13 : Set up the i/o and record buffer 

; Hb 9} 1? dr ctx Cdoslictx$a_buffer] EQL 0 ! If doing wildcards buffer might be there | 
; 1368 18 ctx Cdoslictx$a_buffer] = exch$util_vm_aliocate (ctx$k_buffer_length); 
; Hb oF 8 1 Set the block pointers so that we will advance the buffer on the first get 
; 1909 0 ‘ ctx doslictx$l_buf_base_block] = 0; 

; 1948 9 é ctx Cdoslictx$l-buf-high-block] = <1; | 
; 1331 8 $ : Save the addresses of our routines for this volume and record format. | 
: 19 é 028 inp_filb [filb$a_close_routine] = exch$dos11_close_file; 

; 195 029 inp_filb Cfilb$a_put_routine] = 0; 

3 bt 8 9 inp_filb Cfilb$Sa_get_routine] = exch$pdp_get; 

: 1238 O36 RETURN true; ! True means its open | 
; 195 0 ND; 

; 1958 bee 

3 594 tH } If no files were found, then scream and shout 

> 1961 037 8 iF Not -inp_filb Cfilb$v_files_found] 
; 1962 038 THEN 

; 196! 039 BEGIN 

3 1964 040 REGISTER 

; 1965 041 fao_desc = 0: $Sref_bblock; 

: 1966 94 

3 bs 34 ok Concatenate the volume name to the file name and type fields 

; 1969 045 fao_desc = exch$util_fao_buffer (ZASCID "!AF!AF', .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], 
:; 1976 046 snam_nam Cdsc$w_length] + .nam_typ Cdsc$w_léngth], .nam_nam Cdsc$a_pointer]); 

; 1971 047 $exch_ signal (exch$_filenotfound, 1, .fao_desc); 

; 1376 048 RETURN rms$_fnf; 

3 197 049 

3 1974 050 END; 

3; 1975 051 

3 1376 b3¢ ! Normal exit, return a 0 

3 197 05 : 

: 1978 2054 RETURN 0; 

3; 1979 2055 1 END; 
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0000000" 00194 -ADDRESS P.AAY : 
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Routine Base: 


453 bytes, 


EXCHSDOS11_CODE + OEBF 


outine Size: 
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l+¢ 


i FUNCTIONAL DESCRIPTION: 
i Position the tape to the first data block of the file described by ent. 
i INPUT: 


volb = the volume block for the device 
ent - a pointer to the entry in the directory queue 


i IMPLICIT INPUTS: 
anything we can find hanging off the volb Zig 
i OUTPUTS: 


SSBEZIISS3SSSezSSESS 


none 

i IMPLICIT OUTPUTS: 

the volb (and dos11 extension) are updated 
i ROUTINE VALUE: 

true if able to position, 0 if not 

i SIDE EFFECTS: 

the tape may be moved 


oo 


(mM —OOW 


ISSSSSSSSSSsss 


status 


BIN 


SDOOOOSOSOSOOOOSOSOOCOCOCOCOOSOOCOOOCOOOCOOOOOOOOOOOOOOOO 


oo SOOOOOCO OOO OOOO O OW WW 00 09 69 0909 09 SINS NS SIN SIO AA AAA A AO 


D 
dosv = volb Cvolb$a_vfmt_specific] +: $ref_bblock 


$debug_print_fg0 (‘entry'); 
$block_check (2, .volb, volb, 615); 
$block~check (2, .dosv, dosi{, 6165; 


$trace_print_fao (‘entry file_number !UL, nape _|.2-type ‘XL, XW I XW', 

-ent pgos} jenteu_ tite nusber, -ent Cdosilent$l 1] Lenane 1], 
-ent Cdosilent$w filename_2), .ent Cdosilent$w_TiletypelJ; 
$trace_print_lit (‘dosv at entry”); ; 
$check_call 4, exch$dbg_dump_dosv, .volb, (dmpdsv$m_status OR dmpdsv$m_position)); 
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If the tape position has been lost, rewind the tape so that the position will be known again 


Las) 
o 
Ww 
™~ 
nN 


— 


3 
EXCH$D0S11 dosi1 file and directory routines 1b-se -1984 00:52: AX-11 Bliss-32 V4.0-74 P 
¥0%~000 exch$dos!1_position, tape (volb, ent) 1 30071 3h 99:35ibe LEXCHNG. SRE ExeDosi 1.64 31 age 89 
1 gb Oe AL ROUTINE exch$dosll_position_tape (volb : $ref_bblock, ent : $Sref_bblock) = ZSBTTL ‘exch$dos11_p 


RETURN 0; ; 

pereceor tat tit (‘dasv file number !UL after skip’, .dosv Cdos11$l_current_file]); 
Read the label if we are at a tape mark 
if .dosv Cdos11$v_tape_mark] 
THEN 

BEGIN ; 

status = exch$io_dos!1l_read_label (.volb); 

IF NOT .status 


H 
RETURN 0; 
END; 


m3 | 
EXCH$DOS11 dosi1 file and directory routines 16-Sep-1984 00:52: AX=11 Bliss-32 V4.0-74 Pa 7| Exe 
V0%-000 exch$dos11_position, tape (volb, ent) 1 73007138 99:36:00 LEXCHNG. SREEXCDOSi -B32;1 9 8) VO4 
; 20 113 IF NOT .dosv Cdos11$v_position_valid] ‘ 
: $035 114 3 THEN . “- ” 
; 2040 115 BEGIN : 
; 2041 118 $Sexch signal (exch$_dos11_position); ! This might take a while, warn ‘em about it | ‘ 
; Beg 11 IF _NOT exch$io_dosiT_rewind (.volb) ; 
; 204 118 T | 
3 2044 119 RETURN 0; | ‘ 
: me? : 9 ND; ; 
3 a4 1 § If the desired tile is the first file, then rewind. Otherwise, use the skipfile routine to go there ; 
; 049 124 2 IF .ent Cdostlent$w_file_number] EQL 0 : 
; 2050 125 @ THEN ; 
; $2 : 8 BEGIN ; 
; 2038 ! 8 Rewind the tape so that we will know the position : 
; 055 130 if NO! exch$io_dos11_rewing (.volb) ; 
: 2057 138 RETURN 0; ; 
ne es : 
; 44 133 Determine how far we are from where we should be 
; 2069 : 7 skip = .ent Cdoslient$w_file_number] - .dosv Cdos11$l_current_file); 
; 2064 : $trace_print_fao (‘skip file count !SL*, .skip); 
: 9 i Move the tape that number of files, routine simply returns if skip count jis zero 
; 2067 g if NOT exch$io_dosli_skip_file (.volb, .skip) 
3; 2068 214 HEN 
; $095 2144 RETURN 0; 
; 2070 2145 
; 2071 § 46 $trace_print_lit (‘after skip ->'); ; . 
: oor§ § rt 4 $Scheck-call T4, exch$dbg_dump_dosv, .volb, (dmpdsv$m_status OR dmpdsv$m_position OR dmpdsv$m_entries)); 
; Sore 2149 IF .dosv Cdosi1$v_end_of_tape] 
: sore § 50 THEN 
3; 2076 51 BEGIN 
; 2077 2 26 $trace_print Lit ("forcing -1 Skip *tttttereeeeenneeeeeeeeeeeeee dosy file number !UL', .dosv [dos11$l_¢ 
; 2078 5 dosv Cdos11$T_current_file] = .dosv Cdosi1$l_current_file] + 1; ! Adjust the file number for the ski 
; 2079 54 F NOT exch$io_dos11_skip_file (.volb, -1) 
; 2080 55 HEN | 
$189 | 
g 58 | 
; 59 
; 60 
; 6) 
; 5 
: 64 
; 9 
; 7 
; 68 
; 69 
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EXCHSD0S11 dos11 file and directory routines 16-Sep-1984 00:52:08 AX-11 Bliss-32 V4.0-74 Page 68 EXC! 
v04-000 exch$dos!1_position, tape (volb, ent) 132808 13Re 99:35:04 EXCHNG. SRC Exepusi1 163951 ’ (285 v04: 

095 

B38 

09 

098 

099 

1 BEGIN 

1 BIND 

1 got = dosv Fdos}}se Label _buf] : VECTOR C,BYTE], 

! want = ent Cdosilent$l_filename_1] : VECTOR C,BYTE); 

1 P $trace_print_fao (‘wanted !14(3XB)', .want (OJ, .want C1], .want_(2], .want (33. ewant 4). ewant (5] 

$1 swant C6], .want (7), .want (8), .want (9), .want C10), .want C11), .want £12], .want (133); 
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$trace_print_fao (‘got 114(3xB)' t CO0J, t C1J,_.got C2), t C3], .got [4], .got (51, 
ee veast 16, . 039° £183 tf? $723 SESE 


-got (7), .got (8 » got , -got (13 


Tell them we have to rewind 


» «got J, .got J, .got 
$exch_signal (exch$_dos11_position); 
Rewind the tape so that we will know the position 
IF NOT exch$io_dosl1l_rewind (.volb) 

RETURN 0; 
Call ourselves again now that the position is known 


RETURN exch$dos11_position_tape (.volb, .ent); 


trace_print_Llit fering with position’); 
check_call (4, exch$dbg_dump_dosv, .volb, (dmpdsv$m_status OR dmpdsv$m_position)); 


ETURN 1; 
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Make sure that the correct file has been read 
IF CHSNE (dosil$s_label_buf, dosv Cdosl1$t_label_buf], dos11$s_label_buf, ent Cdosilent$l_filename_1], %C ' 
3 
2 
2 
2 
; 
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OFFC 00000 -ENTRY EXCH$DOS11 POSITION TAPE. Save R2,R3,R4,R5,-; 2056 
R6,R7,R8,R9,R10,R11 ; 
58 0 0G EF 9E 990 MOVAB  EXCHSUTIL BLOCK CHECK, R11 ; 

A G EF 9E 0000 MOVAB EXCH$IO_DOS11 SRIP_FILE, R10 ; 
59 000000006 3 0010 MOVAB LIBSSIGRAL, R9 ; 
38 000 06 F p 0017 MOVL  #EXCH$ _DOS11 POSITION, R8 F 
3 0 0 G EF ; 001g MOVAB EXCHSIO_DOSIT_REWIND, R7 3 

6 4 aC 00 000 MOVL youe Rb 3; 2098 
52 0418006 3 F b0 0029 MOVL #6 785 9, R2 > 2102 
51 026 F 3¢ 6 0 MOVZWL #615, R1 ; 

50 6 dO MOVL  R6, RO ; 
68 18 0 8 JSB EXCHSUTIL BLOCK_CHECK ; 
28 54 A6é OD O3A MOVL $088} RG 3 2103 

2 003600FD BF pO 00 E MOVL #3539197, R2 ; 

31 0268 ef C 0004 MOVZWL #616, R1 ; 

0 4 DO O004A OVL R4, RO ; 
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; Routine Size: 


dosi1 file and directory routines 


exch$dosil_position_tape (volb, ent) 


OE 


oc 


08 AS 


205 bytes. 
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000000006 
26 


FF3B 


Routine Base: 
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1 
1 
1 4D 
£8 4F 
DD 
FB 
DD 
FB O5A 
a 050 
e3 bogs 
12 00067 
DD 9069 
FB 068 
E? Boos 
s 0071 
C2 00075 
DD 00079 
DD 00078 
a) 9007 
E9 9080 
E1 0008 
D6 00088 
CE 00088 
DD O008E 
FB 000 
E9 00093 
E1 00096 
DD 00098 
FB 0009D 
£9 O00A4 
9 000A7 
13 OOOAD 
DD OOOAF 
FB 00081 
Db 000B4 
FB 000B6 
E9 00089 
DD 9008¢ 
DD OOOBE 
FB 000CO 
04 600¢5 
DO 000C6 
04 000C9 
D4 OOOCA 
04 000CC 


1$: 


2$: 


5$: 
6$: 


EXCH$D0S11_CODE + 1084 


ye Bliss-32 V4.0-74 
EXCHNG.SRCJEXCD0S11.832;1 


FXCHSUTIL BLOCK, CHECK 
), 18 


— 
R 
#1, LIBSSIGNAL 


4e EXCH$10_D0S11_REWIND 


CH$10_D0S11_SKIP_FILE 
(R4), 4$ 

' , EXCH$10_D0S11_READ_LABEL 
4, Shika), 8(R5) 
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» EXCHS$D0S11_POSITION_TAPE 
#1, hO 
RO 
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3 hg 0 2859 + 408 data bytes 
; Elapsed Time: 04:08.1 
3; Lines/CPU Min: 1596 
3 jeonenes/PU-Ain, 21205 

; poner Used: 356 pages 
; Compilation Complete 
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EXCH$D0S11 dosi1 file and directory routines 16-3 Sep 8 AX-11 Bliss-32 V4. 
v04-000 exch$dosi1_position_ tape (volb, ent) 14-Sep 71984 99: 38 88 EXCHNG. SRCJEXCDOSi “233. 31 
3; 21 
5138 $509 0 ELUDON 

-EXTRN LIBSSIGNAL, LIBSSTOP 

: PSECT SUMMARY 
: Neme Bytes Attributes 
: €XCH$D0S11 PLIT £98 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, COM MOE TE «AL NEG) 
: EXCHS$D0S11— _CODE 44 NOVEC, *NOWRT. RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; scacuses SyEbe(§ soceesce Pages Processing 
. File Total Loaded Percent Mapped Time 
: _$255$DUA g:CS¥SL18]L 18 32:1 18619 21 0 1000 00:01.9 
> 7$255$puA28 SLEXCHNG-OBJIEXCL 18.L32;1 1151 202 17 79 00:01.4 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXCDO0S11/0BJ=OBJ$:EXCDOS11 MSRC$:EXCDOS11/UPDATE=(ENHS$:EXCD0S11) 
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QUIPMENT CORPORATION 
TAL _AND PROPRIETARY 
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VAX/VMS V4.0 
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NT CORPORATION 
D PROPRIETARY 
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